Select Code to Download

set($ref_to_hash,1,(a c b d))

...
  $hoh = $hoh->{$_} for (@_);
  $hoh->{$last} = $val
}

#create first node
$hr=\%I;
...
$new->{'two'}=1;
$hr->{'one'}=$new;