my $sqldata = [
   { pageid => 1, level => 1, under => 0, pagename => 'Groups' },
   { pageid => 2, level => 1, under => 0, pagename => 'About' },
   { pageid => 5, level => 3, under => 4, pagename => 'Tea' },
   { pageid => 4, level => 2, under => 1, pagename => 'Womens' },
   { pageid => 6, level => 4, under => 5, pagename => 'Registration' },
   { pageid => 7, level => 2, under => 1, pagename => 'Mens' },
   { pageid => 8, level => 3, under => 4, pagename => 'Retreat' }
];
#level = hierarchy, #under = page that this page falls under 
               
my @tree;               
for my $i ( 0 .. $#$sqldata ) {
   if ($sqldata->[$i]{under} == 0 ) {
      push (@tree, $sqldata->[$i]);
   }
   for my $j ( 0 .. $#$sqldata ) {
      if ($sqldata->[$j]{under} == $sqldata->[$i]{pageid} && $sqldata->[$j]{level} == 2) {
         $sqldata->[$j]{tab} = 1; 
         push (@tree, $sqldata->[$j]);
         
         for my $k ( 0 .. $#$sqldata ) {
            if ($sqldata->[$k]{under} == $sqldata->[$j]{pageid} && $sqldata->[$k]{level} == 3) {
               $sqldata->[$k]{tab} = 2;
               push (@tree, $sqldata->[$k]);
               
               for my $l ( 0 .. $#$sqldata ) {
                  if ($sqldata->[$l]{under} == $sqldata->[$k]{pageid} && $sqldata->[$l]{level} == 4) {
                     $sqldata->[$l]{tab} = 3;
                     push (@tree, $sqldata->[$l]);
                  }
               }
            }
         }
      }
   }
}
for ( 0 .. $#tree ) {
   if ( $tree[$_]{tab} == 1 ) { print "---" }
   if ( $tree[$_]{tab} == 2 ) { print "------" }
   if ( $tree[$_]{tab} == 3 ) { print "---------" }
   print $tree[$_]{pagename}."<br />";            
}

OUTPUT:
Groups
---Womens
------Tea
---------Registration
------Retreat
---Mens
About