Re^2: Multiple Permutation handling

[kcott]

I was wondering why you added hyphens to the glob string and then added a map function to remove them. It seems like a lot of additional processing that has no real value: perhaps I'm missing something.

This code produces the same output that you posted:

use strict;
use warnings;

my $sku   = join ',', qw/SKU1 SKU2 SKU3/;
my $tslh  = join ',', qw/T S L H/;
my $size  = join ',', qw/S M L XL 2X /;
my $color = join ',', qw/BLU GRN WHT BLK/;

print "$_\n" for glob "{$sku}{$tslh}{$size}{$color}";