sub ShowIt {
 my $Array1 = $_[0];
 my $Array2 = $_[1];
 print "Array 1: ".join(',',@$Array1)."\n";
 print "Array 2: ".join(',',@$Array2)."\n";
}

@Foo = (1,2,3);
@Bar = (4,5,6);
&ShowIt(\@Foo,\@Bar);