for my $i (0 .. $#suff) {...} #### for my $elt (@arr_1) { @$elt = @{$elt}[@indices]; } #### @$_ = @{$_}[@indices] for @arr_1;