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

#create tmp node and link back in
$new=\%tmp;
$new->{'two'}=1;
$hr->{'one'}=$new;