Re: Multiple Permutation handling

[moritz]

in reply to Multiple Permutation handling

Algorithm::Loops to the rescue:

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,