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