in reply to Memory Leak
$Data->{'one'}->{'two'}=\%Hash; # ... push (@{$Data2->{'one'}->{'two'}}, @{$Data->{'one'}->{'two'}}); # This's not an arrayref! [download]