RedBlack Tree Implementation in Perl