sub depthFirst {

my ($tree) =@_;
return unless ($tree);

print $tree->{Value};
depthFirst($tree->{Left});
depthFirst($tree->{Right});

}