my (@r, $r);

    if (wantarray) { @r = &$code }
    else           { $r = &$code }

    # ... later

    return wantarray ? @r : $r;

##</code><code>##

    wantarray ? @r : $r = &$code;