in reply to help with references

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

[download]
poj

In Section Seekers of Perl Wisdom