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

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

foo(%hash);