Similar and related: $ perl -lwe 'sub aaa ($$) { goto FOO; FOO: $_[0] <=> $_[1] } print sort aaa (7, 3, 5, 2)' Can't "goto" out of a pseudo block at -e line 1. $ perl -lwe 'sub aaa ($$) { {; goto FOO; FOO: $_[0] <=> $_[1] } } print sort aaa (7, 3, 5, 2)' 2357 The check for exiting a pseudo block is being applied too soon. It needs to be postponed until after the check for a goto label at the outermost layer within the pseudo block. [perl #113936] has the same cause too. -zeframThread Next