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);
                }
        }
}