LOOP: { do {{
    $bar;
    baz() or next;
    quux() and last LOOP;
}} while $foo; }