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;
}