foo($bar,$baz,@qux);

sub foo
{
  my $bar = shift;
  my $baz = shift;
  my @qux = @_;
  # or my($bar,$baz,@qux)=@_;
}

##</code><code>##

foo(\@arr1,\@arr2);

sub foo
{
  my @arr1=@{+shift};
  my @arr2=@{+shift};
}