use Data::Dumper;

my %colorhash = ( CCgray  => [ "0","0","0" ],
                  CCwhite => [ "1","0","0" ],
                  CCgrey  => [ "0","2","0" ],
                  CCBlue  => [ "0","0","3", ] );

my @light2dark = keys %colorhash;

print Dumper \@light2dark;