colour  device   value
----------------------
red     bike      1000
red     shoes     1000
blue    car       4
black   plane     6
blue    boat      1000
pink    shoes     5
red     car       5

##</code><code>##

colour    device   value
------------------------
blue      boat     1000
black     plane    6
red       car      5
blue      car      4

##</code><code>##

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

##</code><code>##

for my $value (sort {$b <=> $a} keys %value_hash)  {
        for my $colour ( keys %{$value_hash{$value}})  {
                for my $os ( keys %{$value_hash {$value}{$colour}})  {
                        printf("\n%-55s %-50s %-10s",
                        $colour, $os, $value);
                }
        }
}

##</code><code>##

colour  device   value
----------------------
red     bike      1000
red     shoes     1000
blue    boat      1000
black   plane     6
pink    shoes     5
red     car       5
blue    car       4