Select Code to Download

my %hash;

...
  $node = {$_=>$node} foreach reverse @keys;
  ....
}

my @bigArray = qw(brown red+green blue+yellow black red+white purple+o
+range+gray);

%hash = (
         brown => 1,
...
                              ),
                   ),
         );