for $colour (sort keys %hash){
     for $device (sort keys %{ $hash{$colour}}){
          printf("\n%-55s %-55s %-40s",
          $colour, $device, $hash{$colour}{$device}[0]  );
     }
}