sub funktion{
  my $hash = $_[0];
}