sub DESTROY {
  $allocated--;
  $_[0]->{next}=undef;
  $_[0]->{prev}=undef;
}