Select Code to Download

for my $i ( 0 .. $#$sqldata ) {
   if ($sqldata->[$i]{under} == 0 ) {
...
      }
   }
}

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

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