sub myfunc($\@\@$) {
  my $var1 = $_[0];
  my @arr1 = @{$_[1]};
  my @arr2 = @{$_[2]};
  my $var2 = $_[3];
}