Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper; $Data::Dumper::Sortkeys = $Data::Dumper::Terse = 1;
...
say "$_: ", Dumper $result{$_} for @sorted;

__END__

perl 1207623.pl

...
  'rank' => 3,
  'val' => 120
}