my %h = map { $_ => 1 } @array;
print defined $h{$elem} ? "Yes" : "No";