Select Code to Download

use strict;

...
}
print OUT "$out\n";
close(OUT);

$source{_source}->[0]

$source{_source}->[0][0]#dedicate 0 to myself

$source{_source}->[0][1]#my 1st child

use Data::Dumper;

...
$source{_source}->[0][1] = "section12";#2nd child

print Dumper(\%source);