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