Select Code to Download

colour  device   value
----------------------
...
blue    boat      1000
pink    shoes     5
red     car       5

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

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

for my $value (sort {$b <=> $a} keys %value_hash)  {
        for my $colour ( keys %{$value_hash{$value}})  {
...
                }
        }
}

colour  device   value
----------------------
...
pink    shoes     5
red     car       5
blue    car       4