Select Code to Download

foo($bar,$baz,@qux);

...
  my @qux = @_;
  # or my($bar,$baz,@qux)=@_;
}

foo(\@arr1,\@arr2);

...
  my @arr1=@{+shift};
  my @arr2=@{+shift};
}