foreach $key (sort {$thishash{b}<=>$thishash{a} } keys %thishash)