## 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;

##</code><code>##

($array_ref, $hash_ref) = get_stuff;
my $first_element = $array_ref->[0];
my $thingy = $hash_ref->{'thingy'};