Select Code to Download

fruit   apples
fruit   oranges
...
dairy   eggs
dairy   milk
meat    bacon

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

...
    my( $category, $item ) = split /\t/;
    push  ???$category???, $item;   # what now??
}