my @type = qw(INTEGER INTEGER32 OCTET_STRING OBJECT_IDENTIFIER IPADDRESS COUNTER COUNTER32 GAUGE GAUGE32 UNSIGNED32 TIMETICKS OPAQUE COUNTER64); 

my %hash=(
	      'INTEGER' => INTEGER,
	      'INTEGER32' => INTEGER32, 
	      'OCTET_STRING' => OCTET_STRING,
	      'OBJECT_IDENTIFIER' => OBJECT_IDENTIFIER,
	      'IPADDRESS' => IPADDRESS,
	      'COUNTER' => COUNTER,
	      'COUNTER32' => COUNTER32,
	      'GAUGE' => GAUGE,
	      'GAUGE32' => GAUGE32,  
	      'UNSIGNED32' => UNSIGNED32,
	      'TIMETICKS' => TIMETICKS, 
	      'OPAQUE' => OPAQUE,
	      'COUNTER64' => COUNTER64
	);