use strict;
use warnings;
use integer;

# See http://www.perlmonks.org/?node_id=154008

my @permutation = (
    [['SKU'],[1..3],[qw(T S L H)],[qw(S M L XL 2X)],[qw(BLU GRN WHT BL
+K)]],
    [['SKU'],[4..5],[qw(S M L XL 2X)]],
    [['SKU'],[6],[qw(S M L XL 2X)],[qw(BLU GRN WHT BLK)]]
);

for my $p (@permutation) {
    my $iter = make_permutator(@$p);

    while (my @els = $iter->()){
        print @els, "\n";
    }
}

sub make_permutator {
  my @idx_link = (0, @_);
  my $idx;
  return sub {
    $idx = $idx_link[0]++;
    my @ret;
    for my $i (1..$#idx_link) {
      push @ret, $idx_link[$i][$idx % @{$idx_link[$i]}];
      $idx /= @{$idx_link[$i]};
    }
    return $idx ? () : @ret;
  }
}

1;
__END__
[download]