# I usually include the label in the loop control statement
# so everything's immediately obvious, but I omit them here.
LOOP: {
 last if $something;
 ...
 redo;
}

INFINITELOOP: {
 ...
 redo;
}

FILTER_FOO_LOOP: {
 next if foo();
 ...
 redo;
}

FOO_SWITCH: {
 foo() and last;
 foobar() and last if something();
}