sub w(&$){&{$_[1]}while&{$_[0]}}sub d(&){$_[0]}
# then, instead of while (foo) { bar },
w{foo}d{bar};