Select Code to Download

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

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