http://www.perlmonks.org?node_id=1032077


in reply to help with references

Try adding
$Data::Dumper::Deepcopy = 1;
poj