Perl中的HASH表按value排序输出

##将hash %domains 按照值的大小 输出

my @keysd = sort { $domains{$b} <=> $domains{$a} } keys %domains; #sort the hash;
for (@keysd){
print "#$_ => $domains{$_}\n";
}