Select Code to Download

#!/usr/bin/perl

...
my @new4invslice =
  @array[ (uniq @slice_idx, 0 .. $#array)[@slice_idx .. $#array ] ];
use Data::Dump 'dd'; dd  { 'new4invslice' => \@new4invslice };

{
  array => ["aa" .. "zz"],
...
    "cs" .. "zz",
  ],
}