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

##</code><code>##

    my %u;
    splice @array, $_, 1
          for grep !$u{$_}++, sort { $b <=> $a } @indices;