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
        }
    }
}
[download]

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