print("$_\n");
   foreach map { $HashC{$HashB{$HashA{$_}}} }
           sort { $b <=> $a }
           keys %HashA;