# Without strictures:
use warnings;
use Data::Dump 'pp';

my %hash;
$hash{tree} = 4;
$hash{tree}->{apple} = 6; 

pp \%hash;

__END__
{ tree => 4 }