#!/usr/bin/perl -w
use strict;
my %tmp = (
"key1" => 3,
"key2" => 6,
"key3" => 1,
"key4" => 3,
);
for my $key ( sort { $tmp{$b} <=> $tmp{$a} } keys %tmp ) { printf "%s => %d\n", $key, $tmp{ $key }; }
IyEvdXNyL2Jpbi9wZXJsIC13Cgp1c2Ugc3RyaWN0OwoKbXkgJXRtcCA9ICgKICAia2V5MSIgPT4gMywKICAia2V5MiIgPT4gNiwKICAia2V5MyIgPT4gMSwKICAia2V5NCIgPT4gMywKKTsKCmZvciBteSAka2V5ICggc29ydCB7ICR0bXB7JGJ9IDw9PiAkdG1weyRhfSB9IGtleXMgJXRtcCApIHsKCXByaW50ZiAiJXMgPT4gJWRcbiIsICRrZXksICR0bXB7ICRrZXkgfTsKfQ==