$verbose and warn "found " . @root . " root nodes: " . join(" ", grep { defined } @root[0 .. 7]);