c:\>perl
my %hash = qw/a 1 b 2 c 3 d 4 e 5/;
my $ref = \%hash;
my $anzahl = scalar(@{[%$ref]}) / 2;
print $anzahl, "\n";
^Z
5