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

##</code><code>##

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