my %x;
$x{$_}++ for @{$key_hash{$current_key}{OID_NAME}};

print "$_ has $x{$_} entries\n" for sort keys %x;