{ do {
    $bar;
    baz() and last;
} while $foo; }