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

##</code><code>##

for (@array)
{
    push @newaray, $_ if expr;
}