#!/usr/bin/perl

use strict;

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