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