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

open (FOOD, "./food.txt")

while (<FOOD>) {
    chomp;
    ($category, $item) = split(/\$/, $_);
    push(@{$category}, $item) if (@{$category});
}