my $i = 123;
for \$i ( 0 .. 10 ) {
    last if $i == 5;
}

print $i;
__END__
5

##</code><code>##

my $i = 123;
for ($i = 0; $i <= 10; ++$i) {
    last if $i == 5;
}

print $i;
__END__
5