my( @sorted ) = sort { 
    $users{$a}->{count} <=> $users{$b}->{count}
} keys %users;
print "$_ => $users{$_}->{count}\n" foreach @sorted;