LOOP:
while(1) {
    last LOOP;
}

##</code><code>##

LOOP:
while(1) {
    while ( condition ) {
        last LOOP;
    }
}

##</code><code>##

THING:
for my $thing (@things) {
    redo THING;
}