for $uid (keys %users) {
  print "User $uid has ";
  for my $conn (@{$users{$uid}}) {
    my $number = @{$searches{$conn}};
    print "$number searches on connection $conn\n";
    }
  }
}