#! perl -slw
use strict;

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

print $i;
__END__
123