Help for this page
if($$tree->{left} == undef || $$tree->{right} == undef) { return; }
return unless defined $$tree->{left} and defined $$tree->{right};