sub foo {
    my $href = shift;
    # Arbeit  mit Referenz Hash
    foreach my $key (keys %$href) {
        my $value = $href->{$key};
        print "$key => $value\n";
    }
}

my %hash = ('a'=>1, b=>2);
foo(\%hash)