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