for my $user ((sort { $users{$b}->{count} <=> $users{$a}->{count} } keys %users) {
   blah blah...
}