for my $user (keys %users) {
  for my $conn (@{$users{$user}}) {
    if( exists $searches{$conn} ) {
      print "User $user had ".scalar( @{$searches{$conn}} )." searches on connection $conn\n";
      print "\t=> Bad user!\n" if  @{$searches{$conn}} > 3;
    }
  }
}