use strict;

my $hash_ref=&makehash;
my %hash=%$hash_ref;

print $hash{SQUEE};

exit;

sub makehash { 

   my %sub_hash;
   $sub_hash{SQUEE}="Nny";
   return (\%sub_hash);

}