use Data::Dumper;
$Data::Dumper::Deepcopy = 1; # add this line