my $goal = 'over';
my @array = qw(the quick fox jumped over the lazy dog);
foreach my $item (@array) {
   next unless $item =~ /$goal/;
   print $item;
}