Select Code to Download

for my $i (0 .. $#suff) {...}

for my $elt (@arr_1) {
    @$elt = @{$elt}[@indices];
}

@$_ = @{$_}[@indices] for @arr_1;