my @test = (1,2);
my @test2 = (3,4);
foo(\@test,\@test2);

sub foo
{
  my ($array,$array2) = @_;

  print $_ ."\n" for(@{$array});
  print $_ ."\n" for(@{$array2});
}