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