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

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

foo(%hash);