Select Code to Download

my @array = map { STMT* EXPR } LIST;

my @array;
for (LIST) {
   STMT*
   push @array, EXPR;
}

my @array = grep EXPR, LIST;

my @array;
for (LIST) {
...
      push @array, $_;
   }
}