print "Found it!\n" if (grep {/^I_am_looking_for_this$/o} @List);

##</code><code>##

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

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

##</code><code>##

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

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