@anncache = DXLog::search(0, $maxcache, $main::systime, 'ann');
shift @anncache while @anncache > $maxcache;
my $l = @anncache;
@anncache = DXLog::search(0, $maxcache, $main::systime, 'ann');
shift @anncache while @anncache > $maxcache;
my $l = @anncache;