Select Code to Download

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

foo
qux2
bar2
foo
foo3

my @arr = qw( bar qux foo qux2 bar2 foo foo3 );
my $marker = "foo";
...
            print "$arr\n";
}