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