Help for this page
'2' => { 'test1' => { '1' => $VAR1->{'1'}{'test1'},
use Data::Dumper; ... $Data::Dumper::Deepcopy=1; print Dumper $ref_1;