Need cleaner way to read @_ when dereferencing

[Sandy]

Any ideas how this could be 'cleaner?'

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

or

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

Update: Fixed code snippet as shown by dragonchild. It was just a typo.

[dragonchild]

First, you've got $ and @ mixed up. If you used warnings, you'd get a statement about 1-element array slices. That looks like it really should be:

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

Secondly, your second version is what should happen, except you don't have to dereference $tmp1 and $tmp2. You can replace as so:

@arr1[3]

---

$tmp1->[3]

Hope that helps!

[Roy Johnson]

you don't have to dereference $tmp1 and $tmp2

Unless you want to work on a local copy.

[dragonchild]

If you want to edit and not have those changes reflected, yes. However, when using the \@ prototype, my experience is that you usually want to have your changes reflected in the array when you're done. In fact, most examples in the docs regarding prototypes and arrays involve things like my_push() and my_pop(), which do change their parameters. YMMV