DB_File WTF (was GDBM_File WTF?)

[Dirk Koopman]

I see to be getting a similar and rather more final problem along a 
similar vein. Except that it bangs out with:

Out of memory during ridiculously large request at 
/spider/perl/DXDupe.pm line 78.

  $dbm = tie (%d, 'DB_File', $fn);

..
..

  if ($main::systime - $lasttime >=  3600) {
     while (($k, $v) = each %d) {
        delete $d{$k} if $main::systime >= $v; # line 78
     }
     $lasttime = $main::systime;
  }

But only on the latest freebsd 6.2.

Any clues?