sub foo {
  my ( $hash1, $hash2 ) = @_;
  # oder
  # my $hash1 = shift;
  # my $hash2 = shift;

  # damit liegt in $hash1 und $hash2 jeweils eine Referenz auf einen Hash

  # ersten Hash dereferenzieren, indem ein % vor die Referenz gestellt wird
  for my $key ( keys %$hash1 ) {
    # die einzelnen Elemente derefenzieren mit Pfeil-Operator und geschweiften Klammern
    print "$key : ", $hash1->{$key}, "\n";
  }

  # zweiten Hash dereferenzieren; Kommentare siehe vorige Schleife
  for my $key ( keys %hash2 ) {
    print "$key : ", $hash2->{$key}, "\n";
  }
}