Select Code to Download

sub breadthFirst
{
...
        push @queue, $node->{Right} if defined $node->{Right};
    }
}