use Data::Dumper;

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