Select Code to Download

use strict;
use warnings;
...
my @c = 7..9;

pp mapm { $_[0] . $_[1] . $_[2] } \@a, \@b, \@c;

use strict;
use warnings;
...
while ( my ( $a, $b, $c ) = $iter->() ) {
    say $a, $b, $c;
}