Select Code to Download

foreach my $s1 (@set1) {
     foreach my $s2 (@set2) {
...
         }
     }
}

my @sku   =  qw/SKU1 SKU2 SKU3/;
my @tslh  =  qw/t s l h/;
...
my @sizes = qw / S M L XL 2X /;

print map { $col = $_; map { $siz = $_; map {$a1 =$_; map "$_ $a1 $siz
+ $col\n", @sku;} @tslh} @sizes } @colors;

SKU1 t S BLU
SKU2 t S BLU
...
SKU1 h 2X BLK
SKU2 h 2X BLK
SKU3 h 2X BLK