Statement Perl

foreach ( 1 .. 10 ) {
   print "*";
}