print +(grep {$_ eq $elem} @array) ? "Yes" : "No";

##</code><code>##

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