my %lookup = map { $_ => undef } @array;
print "There it is\n" if exists $lookup{foo};