while(1) {
    $bar;
    baz() or next;
    quux() and last;
}