%hash = (a=>1,b=>2); $count = 0; $hash_key_count = keys(%hash); while(($key,$value) = each %hash) { $count++ if $value==$hash_key_count; } print $count;