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