~/cpan/XML 402> diff TreePP.pm TreePP_old.pm 
270d269
< use Tie::IxHash;
595,598c594
<     
<     tie my %ixhash,'Tie::IxHash';
<     
<     my $tree   = \%ixhash;
---
>     my $tree   = {};