my %haha = (__name => 'Mein Name ist Hash');

test(\%haha);

sub test {
   my ($ref) = @_; # Die Klammern sind notwendig!
   print $ref->{__name}; # Mein Name ist Hash
}