sub DESTROY {
  my $s = shift;
  undef(%$s)
}