my ($found, @set);

@set = qw(one two three);
$found = map { 1 if $set[$_] eq $element } 0..$#set;

if ($found) { ... }
[download]