Wow. What are you trying to do again? :) Looks like you are trying to build a look-up table out of @type so that you can validate certain types. You can save yourself a lot of typing by using a hash slice to generate the lookup table, but the contents of your hash are very confusing. You have needlessly quoted the keys and left the values bare -- are the values constants? Ahhh, i see now that they indeed are. Try this instead:

# if these are constants, then don't quote them
my @type = (
   INTEGER, INTEGER32, OCTET_STRING, OBJECT_IDENTIFIER,
   IPADDRESS, COUNTER, COUNTER32, GAUGE, GAUGE32,
   UNSIGNED32, TIMETICKS, OPAQUE, COUNTER64,
);

# construct hash
my %hash;
@hash{@type} = @type;

# now, let's validate something
warn "$type[0] not INTEGER" unless $hash{$type[0]} == INTEGER;
[download]

Hope this helps, or at least sheds some more light on the problem.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)