## Note-- do not copy and paste! Read perlman:perlref.
sub get_stuff {
   return (\@array, \%hash);
}

($array_ref, $hash_ref) = get_stuff;
@newarray = @$array_ref;
%hash = %$hash;