Select Code to Download

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

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