sub foo { bar(); print "at $_\n"   }
sub bar { next LOOP if $_ % 2 == 0 }

LOOP: for(0 .. 10) { foo() }

__output__

at 1
at 3
at 5
at 7
at 9