sub mySub { my $array_ref1 = \@array1; my $array_ref2 = \@array2; return ($array_ref1, $array_ref2); } my ($arr_ref1, $arr_ref2) = mySub(); my @array_ref1 = @{$arr_ref1}; my @array_ref2 = @{$arr_ref2};