Help for this page
sub action { for my $i(@list) { ... print "Decide sub didn't call next!\n"; } }
sub foo { next I; }; I: foreach my $a ( 1..5 ) { ... &foo(); print "$a\n"; }