use warnings;
use strict;

quit: for (1 .. 10) {
    check_early ($_);
}

sub check_early {
    my $value = shift;
    
    last quit if $value == 5;
    print "$value\n";
}