Select Code to Download

my @array = qw(foo bar baz qux);

...
                        : () }
               grep { /a/ }
               @array;

my @array = qw(foo bar baz qux);

...
                      $foo }
               grep { /a/ }
               @array;