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