I ended up doing $current->{$key} = $data, and after reading your post I think I see how I confused myself with the pointer/references issue, Perl not having pointer, only references. Thanks for the help guys.