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