sub foo {
 my %hash = %{shift @_};
 print $hash{hallo};
}

my %hash;
$hash{hallo} = "welt";

foo(\%hash);