Found another one...

use List::AllUtils qw( singleton );
my @new6invslice = @array[ singleton 0 .. $#array, @slice_idx ];
[download]

If that's not better, we need a better definition of 'better'. (WARNING: possible infinite recursion encountered!)