Try to change this:

    if($$tree->{left} == undef || $$tree->{right} == undef) {
        return;
}
[download]

to something like this:

    return unless defined $$tree->{left} and defined  $$tree->{right};
[download]