Select Code to Download

#!/usr/bin/perl

...
@wanted[@slice_idx] = ();
my @new6invslice = @array[ grep defined, @wanted ];
use Data::Dump 'dd'; dd  { 'new6invslice' => \@new6invslice };

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