Select Code to Download

use Algorithm::Loops qw( NestedLoops );

NestedLoops(\@list,
   sub { print(join(',', @_), "\n"); },
);

use Algorithm::Loops qw( NestedLoops );

...
while (my @set = $i->()) {
   print(join(',', @set), "\n");
}