my @b;
foreach (@a) {
   if (EXPR) {
      push @b, $_;
   }
}