@keys = sort{$hash{$b} <=> $hash{$a}} keys %hash;