Select Code to Download

use Algorithm::Loops qw( NestedLoops );

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