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

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

shift @fruit;
shift @meat;
shift @dairy;