return wantarry ? @a : $a[0];

##</code><code>##

my @a;
if(wantarray) {
    @a = &$ref;
} else {
    $a[0] = &$ref;
}
... do something ...
return @a;

##</code><code>##

return (wantarray ? @a : $a[0]);