sub foo { my @x = qw(a b c); return \@x }
my $f = foo();

##</code><code>##

sub foo { my @x = qw(a b c); return \@x }
foo();