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

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