for (keys %HASH) {$x++};
print "Anzahl der keys von %HASH: $x\n";