for my $key (reverse sort keys %hash) {
   print "$key: $hash{$key}\n"
}