my $RightNode = $Node->right;
my $NextRightNode = $RightNode->right;