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