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

##</code><code>##

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