my $scan = \%pTree;