Use references.

sub foo {
  my @array1 = stuff();
  my @array2 = flibberty();
  return \@array1, \@array2;
}
[download]

See perldoc perlref for more information.

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)