Select Code to Download

#! perl -slw
use strict;
...

pp \@tree;

C:\test>1031775.pl
do {
...
  $a->[25] = $a->[0][3][2][3][2];
  $a;
}