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

##</code><code>##

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

##</code><code>##

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