for ( 0 .. $#tree ) {
   print "---" x $tree[$_]{tab};
   print $tree[$_]{pagename]."<br />";
}