Select Code to Download

use strict;
...

# 5. Demonstrate the folly of breaking out of "map" with "last"
@odds = map { ($_ % 2)? $_: last } @nums;

foreach (@nums) { ($_ % 2) and push @odds, $_ }

Can't "last" outside a loop block at last_test.pl line 27.