use strict;

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

while (<>)
{
    chomp;
    my( $category, $item ) = split /\t/;
    no strict 'refs';
    push @$category, $item;
}

print "Fruits are: @fruit\n";