Select Code to Download

my int ($pre, $in, $post) is constant = (0..2);

sub insert (HASH $tree is rw, int $val) {
   ...
}