Select Code to Download

#!/usr/bin/perl
use warnings;
...
    $colorhash{$a}[1] <=> $colorhash{$b}[1] or 
    $colorhash{$a}[2] <=> $colorhash{$b}[2] 
}

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

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