my $hash_ref = foo();
print "Menge: " . scalar %{$hash_ref};
# liefert "3/8", ich erwarte aber 4
# und was heißt 3/8 genau, wofür stehen die Zahlen?
sub foo {
    my %test = (
        1 => 'foo',
        2 => 'bar',
        3 => 'foobar',
        4 => 'barfoo',
    );
    return \%test;
}