Select Code to Download

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

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