funktion(\%hash);
sub funktion {
  my ($hash) = @_;
  print $hash->{key};
}