Help for this page

Select Code to Download

Select or download this

my ($level2) = values %$VAR1;

...
}

use Data::Dumper; print Dumper($root);