my $goal = 'over';
my @array = qw(the quick fox jumped over the lazy dog);
my $found_item;
foreach my $item (@array) {
   next unless $item =~ /$goal/;
   $found_item = $item;
   last;
}
if ($found_item) {
   print $found_item;
   # do other stuff
}