foreach (my $i=0; i<10;$i++) { #...