sub l(&){{&{$_[0]};redo}}sub w{$_[0]||last}
# then, instead of while (foo) { bar },
l{w foo;bar};