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