передавать указатели на массивы

foo(\@array1, \@array2);

sub foo{
my ($p_arr1, $p_arr2)=@_;
print join ', ', @{$p_arr1};
print "\n";
print join ', ', @{$p_arr2};
print "\n";
}