Select Code to Download

my @array = split '', $string;
@hash{@array} = map {ord} @array;

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