foreach my $colour ( keys %hash) {
        foreach my $device ( keys %{$hash{$colour}})
        {
                my $val = $hash{$colour}{$device}[0];
                $value_hash{$val}{$colour}{$device}[0]++;
        }
}