Select Code to Download

my %HOH;
$HOH{parent}{child1} = 'value1';
...
    child1 => "value1",
    child2 => ["value2", "value3"] },
}

use Data::Dump qw(pp);
say pp(\%HOH);