my %hash = ( ..... );
print "$_, $hash{$_}\n" for sort { $hash{$b} <=> $hash{$a} } keys %hash;