Didn't you mean to write:

  checkdbm \%terms,$db;

    for my $t (keys %{$terms->{$db}}) {
      $terms{$db}{$t}++;
    }
[download]

?

Jeroen
"We are not alone"(FZ)