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

print $i;
__END__
5