my @colors = qw/ ***insert colors here*** /;
my @sizes = qw/ **** insert sizes here ***/ ;
my @shapes= qw/ *** insert shapes here ***/;
my @combos=();
foreach my $color(@colors){
   foreach my $size(@sizes) { 
      foreach my $shape(@shapes) {
           push @combos,{ color => $color, 
                          size => $size, 
                          shape => $shape};
      }
   }
}