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