note
moritz
<p>[mod://Algorithm::Loops] to the rescue:
<code>
use 5.010;
use strict;
use warnings;
use Algorithm::Loops qw/NestedLoops/;
my @list = NestedLoops(
[
[ qw/SKU1 SKU2 SKU3/ ],
[ qw/T S L H / ],
[ qw/S M L XL 2X / ],
[ qw/BLU GRN WHT BLK / ],
],
sub { join '', @_ },
);
say join ' ', @list,
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-616540">
[http://perl6.org/|Perl 6 - the future is here, just unevenly distributed]
</div></div>
1021329
1021329