Select Code to Download

@all = (\@foo, \@bar);
return @all;

return \@foo, \@bar;

print (1, 2, 3, 4);
    # and
print 1, 2, 3, 4;

my ($aryref1, $aryref2) = subroutine();
    # or if you want the longer way.
my $aryref1;
my $aryref2;
($aryref1, $aryref2) = subroutine();

my $ret = subroutine();