my %check;

@check{@arr) = (1) x @arr;

##</code><code>##

if $check{$val}