use warnings;
use strict;

foo($_) for 1 .. 5;

sub foo {
    no warnings 'exiting';
    my $z = shift;
    print "$z\n";
    last if $z > 2;
}

__END__

1
2
3