| hand waving here.

my %reciever = get_stuff();

| more handwaving

sub get_stuff {
    my %hash =();
    # fill hash
    return %hash;
}

##</code><code>##


my $reciever=get_stuff();

sub get_stuff {
   my %hash = ();
   # yada yada 
  return \%hash;