my @arr = qw( bar qux foo qux2 bar2 foo foo3 );
my $marker = "foo";

foreach my $arr (@arr) {

  next unless ($arr eq $marker);
  print "$arr\n";
  
}
continue {
            print "$arr\n";
}