foreach ( my $i = 0; $i < 10 ; $i++ ) { print "\$i is $i\n"; }