my @new;
foreach (@old) {
   push @new, EXPR;
}