my $i = 5; for $i (10..15) { } print "$i\n";