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

##</code><code>##

return \@foo, \@bar;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $ret = subroutine();