C:\Code>perl color-sort.pl
Original order of data:

For key CCBlue  : element[0] = 0 element[1] = 0 element[2] = 3
For key CCgray  : element[0] = 0 element[1] = 0 element[2] = 0
For key CCgrey  : element[0] = 0 element[1] = 2 element[2] = 0
For key CCwhite : element[0] = 1 element[1] = 0 element[2] = 0


Order, dark  is CCwhite,CCgrey,CCBlue,CCgray.
Order, light is CCgray,CCBlue,CCgrey,CCwhite.