http://www.perlmonks.org?node_id=7968


in reply to Number of times I've used goto in Perl

Does a named loop count? Something like:
TOP_OF_LOOP: while (1) { # do this for (1 .. $some_big_number) { $foo = do_some_function($_); if ($foo % $_ = $some_smaller_number) { next TOP_OF_LOOP; } # do something else } } }
In both cases, your program flow probably needs help. :) (Okay, I'm really bad with configuration files.)

(And, yes, okay, it's an implicit goto. I'm guilty of it once in an AUTOLOAD, though.)