use Tie::HashTree qw(hash_to_tree);
my $tree = tie my %x, 'Tie::HashTree';

##</code><code>##

sub TIEHASH
{
        my ($class, $self) = @_;
        $self->{level} = "";
        $self->{name} = "top";
        $self->{top} = {};
        bless ($self, $class);
}