for $uid (keys %users) {
  my $count = @{$users{$uid}};   
  # etc
  ...
}