use Data::Dumper;

open(OUT,">/usr/home/hashtree");
print OUT Dumper(\%tree);
close(OUT);


##</code><code>##


use Data::Dumper;
my $hashtree = do("/usr/home/psivaram/tree") or die $!;

%tree = %{$tree};