@fruit = ();
@meat = ();
@dairy = ();

open (FOOD, "./food.txt");
while(<FOOD>) {
 chomp;
 ($category,$item) = split(/\s+/,$_);
 push(@{"$category"},$item);
}