Select Code to Download

my %hash = (
    TreeNodes => []
...

use Data::Dumper;
print Dumper \%hash;

my %hash;
push @{ $hash{TreeNodes} }, 1, 2;

use Data::Dumper;
print Dumper \%hash;