splice @array, $_, 1
        for sort { $b <=> $a } @indices;