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

print $i;
__END__
5