use Data::Dumper;
my %hash;
$hash{tree} = 4;
$hash{tree}->{apple} = 6; 
print Dumper \%hash;