sub myfunc($\@\@$) {
  my ($var1,$tmp1,$tmp2,$var2) = @_;
  my @arr1 = @$tmp1;
  my @arr2 = @$tmp2;
}