sub lup { "LOOP" } sub say { print @_, $/; sleep 1; } LOOP: say 0; #{ # uncomment INNER: { say 1; goto +lup(); say 2; } LOOP: { say 3; goto LOOP; LOOP: say 2; } #} ### uncomment