sub clear_cache {
  my @ids = sort {$count{$b} <=> $count{$a}} keys %count;
  splice @ids, 0, $reset_size-1;
  delete @cache{@ids};
  %count = ();
  @count{keys %cache} = (0) x $reset_size;
  $size = $reset_size;
}