%type_map = map {
               my $type_num = Net::SNMP::Message->$_();
               ( $_ => $_, $_ => $type_num )
            } (
               @{$Net::SNMP::Message::EXPORT_TAGS{'types'}}
            );

$bah = $type_map{$bah}
or die("Bad type\n");