Select Code to Download

my $data = [
{type=>'fruit',food='apple'},
{type=>'veggies',food='carrot'},
{type=>'meat',food='bacon'},
];

my $data = [
[qw(fruit apple)],
[qw(veggies carrot)],
];