my ( $addr ) = 'HASH(0x9999999)' =~ /HASH\(0x(.*)\)/;
   $addr = hex $addr;
   my $hash_dump = pack 'L', $addr;