Select Code to Download

  
my %Categories;
while (<>)
...
}

print "$_\n" for sort @{$Categories{'dairy'}};

eggs
milk

%Categories = (
    fruit => \@fruit,
    meat  => \@meat,
    dairy => \@dairy,
);