my @deletes = grep { evaluate($array[$_]) } 0..$#@array;