elsif ($type eq 'ARRAY') {
       $_ = ref() ? _treemap($code, $_, $refs) : &$code() for @$node;
    }