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