Select Code to Download

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

my $do_shift = 0;
sub get_elem {
...
    $count{$id} >>= 1;
  }
}