Select Code to Download

use strict;
use warnings;
...
my $color = join ',', qw/BLU GRN WHT BLK/;

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