The easiest way is to pass a reference. See perlman:perlref. Here's a quick example:

sub example {
  my $array1 = shift;
  my $array2 = shift;

  push(@{$array1}, 'somevalue');
  print $$array2[2];
}

my @first_array = (0..9);
my @second_array = ('a'..'z');

example(\@first_array, \@second_array);
[download]

--isotope
http://www.skylab.org/~isotope/