Select Code to Download

use Algorithm::Loops qw( NestedLoops );

...
);

my @AoA2 = NestedLoops(\@AoA1, sub { [ @_ ] } );

use Algorithm::Loops qw( NestedLoops );

...
while (@list = $iter->()) {
   push @AoA2, [ @list ];
}