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