$number = grep(//, keys %hash);

for (keys %hash) { $number++; }