Select Code to Download

use Data::Dumper;

...
 or $colorhash{$a}[1] <=> $colorhash{$b}[1]
 or $colorhash{$a}[2] <=> $colorhash{$b}[2];
}

$VAR1 = [
          'CCgray',
...
          'CCgrey',
          'CCwhite'
        ];