sub foo {
  my $key = shift;
  my $hashref = shift;

  # und dann die Hash-Referenz derefenzieren
}