You were very vague about your input format. I assumed you meant:

my %checkfrom = (
    Meat  => [qw( Fish Apple Pork Bacon )],
    Fruit => [qw( Apple Pie Orange Beef )],
);
[download]