my @newarray;

for (@array) {
    push @newarray, expr;
}