sub action {
  for my $i(@list) {
    &decide($i);
    print "Decide sub didn't call next!\n";
  }
}

##</code><code>##

sub foo { next I; };
I: foreach my $a ( 1..5 ) {
  print "$a\n";
  &foo(); 
  print "$a\n";
}