Help for this page
#! perl -slw use strict; ... pp \@tree;
C:\test>1031775.pl do { ... $a->[25] = $a->[0][3][2][3][2]; $a; }