my $Found=0;
for (@List)
{
 if (/^I_am_looking_for_this$/o)
 {
  $Found=1;
  last;
 };
};

print "Found it!\n" if $Found;