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