my %set;
@set{@values} = ();
...
if (exists $set{$key}) ...