do {{
    $bar;
    baz() or next;
}} while $foo;