Normally the last and next keywords are related to the innermost loop. In some cases that's not good. Perl allowes us to define labels in fron of loops and then to use those labels in conjunction with last or next to go to the last or next iteration of the specified loop.

use strict;
use warnings;

while (1) {
    print "start outer\n";
    while (1) {
        print "start inner\n";
        last OUTER;
        print "end inner\n";
    print "end outer\n";
print "done\n";