{
   my %objs;

   sub new {
      my $obj = { ... };
      my $key = 0+$obj;
      $data{$key} = $rec;
      return $key;
   }
}