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