das ist einer der gründe, warum Perl Best Practices empfiehlt, möglichst alle subs so kurz zu halten, dass sie in ein standard-terminalfenster passen. ist natürlich nicht immer möglich, aber ich refakturiere öfter selber solchen langen code, und je mehr ich in kleine subs auslagere, desto eher habe ich auch einen überblick, was passiert und die verschachtelungen werden automatisch weniger. bei subs geht dann auch oft ein "return if $foo" statt "if/else", was auch eine einrückung erspart.

eine notlösung könnte aber auch sein:

das ist weniger böse als ein goto, da es im prinzip wie ein verlassen einer schleife funktioniert.