Select Code to Download

use Algorithm::Loops 'NestedLoops';

...
while (my ($line, $x) = &$iter) {
    print "$x: $line\n";
}

use Algorithm::Loops 'NestedLoops';

...
}

print "@arr\n";