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