my %look;
@look{@set_of_values}=();

...

print "gotcha" if exists $look{$to_check};