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