Select Code to Download

          '2' => {
                   'test1' => {
                                '1' => $VAR1->{'1'}{'test1'},

use Data::Dumper;

...

$Data::Dumper::Deepcopy=1;
print Dumper $ref_1;