my %hash;
my $count = 0;
foreach my $key qw(red blue green yellow black 
                                white purple brown orange gray){
   $hash{$key}{'index'} = $count;
   $hash{$key}{'state'} = 0;
   $count ++; 
}