my %hash = qw( a 1 b 2 );
my $count = 0;
my $key_count = keys %hash;
while ( my ( $key, $value ) = each %hash )
{
   $count++ if $value == $key_count;
}

print $count;