Other advantages are that it doesn't break when

LOOP:
while(1) {
    last LOOP;
}
[download]

becomes

LOOP:
while(1) {
    while ( condition ) {
        last LOOP;
    }
}
[download]

and does the right thing in

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