my @new = map { EXPR } @old;

##</code><code>##

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