Select Code to Download

use Algorithm::Loops qw( NestedLoops );

...
while (my @row = $iter->()) {
   print("@row\n");
}