sub foo {
    my ($hashref) = @_;
    print $hashref->{Benutzer};
}

my %hash = (
    Benutzer => "Fred",
);
foo(\%hash);