Select Code to Download

"id","pid","subject"
1,0,"Food"
...
19,14,"Muenster"
20,11,"Coffee Milk"
21,0,"Not Food!"

 
     $sth->execute;
     my @cols = ( );
...
       push( @{ $children{ $o->pid } }, $o->id ) and $obj{ $o->id } = 
+$o; 
     }

my %children = (
  0  => [1,21],
...
  21 => "Not Food!",
);
my @out = ( [1,'Food'],[2,'Beans and Nuts'],[3,'Beans'],[4,'Black Bean
+s'],[4,'Kidney Beans'],[5,'Red Kiney Beans'],[5,'Black Kidney Beans']
+,[3,'Nuts'],[4,'Pecans'],[2,'Dairy'],[3,'Beverages'],[4,'Whole Milk']
+,[4,'Skim Milk'], [4,'Coffee Milk'], [3,'Cheeses'], [4,'Cheddar'],[4,
+'Stilton'],[4,'Swiss'],[4,'Gouda'],[4,'Muenster'],[1,'Not Food!']);

my @mystack;
my $i = 1;
...
    }
  }
}