%nestedhash = {
  $someref     => { ref => $someref,    val => "STUFF", },
  $anotherref  => { ref => $anotherref, val => stuff(), },
}

##</code><code>##

  while (($ref, $val) = get_pair()) {
     my %thisrecord = { ref => $ref, val => $val };
     $record{$ref} = \%thisrecord;
  }

##</code><code>##

   while (($r, $v) = get_pair()) {
   $ref{$r}=$r; $val{$r}=$v;
}

##</code><code>##

sub H{$_=shift;while($_){$c=0;while(s/^2//){$c++;}s/^4//;$
v.=(' ','|','_',"\n",'\\','/')[$c]}$v}sub A{$_=shift;while
($_){$d=hex chop;for(1..4){$pl.=($d%2)?4:2;$d>>=1}}$pl}$H=
"16f6da116f6db14b4b0906c4f324";print H(A($H)) # -- jonadab