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