Be careful, this piece of code is untested, due to lack of testing data. If there is any gap, just ask back, we will help.

replace $var1 with your real variable name.

#!/usr/bin/perl

use strict;

my $hash;
foreach my $pair (@{$var1->{"OID_NAME"}}) {
    $hash->{$pair->[0]} ++;
}
[download]