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