checkdbm \%terms,$db;

  for my $t (@terms) {
    $terms{$db}{$t}++;
  }