Valid point but you failed to provide a correct way for leaving the sub. I'm no expert but i leave subs using return. Also I think that his code was psuedo code meant to express his desired outcome rather than actual code in need of work.

The proper way is using return. So you are doing it the proper way.

perl -e "sub x{last} x"
Can't "last" outside a loop block at -e line 1.
[download]

Eh... not always.

#!/perl/bin/perl -wl
sub x { last }
for(1 .. 3) {
    print;
    x();
}
print "done";
[download]

Result:

Exiting subroutine via last at test.pl line 2.
1
done

Here, it's a warning, not a fatal error.

#!/usr/bin/perl -l
use warnings;
use strict;

use warnings FATAL => qw/exiting/;  # make it a runtime error

sub xxx { next }

no warnings;
for ( 1 ... 3 ) {
    print;
    xxx;
}
print "done";
[download]

(Thanks bart.)