Select Code to Download

for my $x ( $sub_x->() ) {
    for my $y ( $sub_y->() ) {
         return [ $x,$y ];
    }
}

use 5.12.0;

...
    }
}

*** First 5 RESULTs: ["A", 1, "a"] at d:/exp/iter/cross.pl line 92.
*** First 5 RESULTs: ["A", 1, "b"] at d:/exp/iter/cross.pl line 92.
...
*** Remaining RESULT: ["B", 1, "b"] at d:/exp/iter/cross.pl line 99.
*** Remaining RESULT: ["B", 2, "a"] at d:/exp/iter/cross.pl line 99.
*** Remaining RESULT: ["B", 2, "b"] at d:/exp/iter/cross.pl line 99.