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

%tree = %{$tree};