Select Code to Download

# traverse($hoh, @key): return value of $hoh->{$key[0]}...{$key[-1]}
sub traverse {
...
  $hoh = $hoh->{$_} for (@_);
  $hoh->{$last} = $val
}