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

for (@arr) {
    print $_, $/ if ($marker eq $_) .. 1;
}

__END__
foo
qux2
bar2
foo
foo3