sub IsInThere(@)
{
 for (@_) {return 1 if /^I_am_looking_for_this$/o}
 return 0;
};

print "Found it!\n" if IsInThere(@List);