my $tree_aref = [['Root', ['Terminal', 'T2', ['Nonterminal', ['Terminal']]]]];