use strict;
use warnings;
use Data::Dump 'pp';

my %hash;

$hash{tree}->{apple} = 6;
pp \%hash;

$hash{tree} = {apple => 6};
pp \%hash;

__END__
{ tree => { apple => 6 } }
{ tree => { apple => 6 } }