sub f { return   @_   }
sub g { return [ @_ ] }

my $d = [];
my @f = f($d);  printf("%d element(s), first=%s\n", 0+@f, $f[0]);
my @g = g($d);  printf("%d element(s), first=%s\n", 0+@g, $g[0]);