Select Code to Download

pass_arrays(@array_one, @array_two);

...
  my @a1 = @_;
  my @a2 = @_;
}

pass_arrays(\@array_one, \@array_two);

sub pass_arrays{
  my ($a1ref, $a2ref) = @_;
}