I whould use a hash.

my %h = (
  fruits => {
    p => [ 'peach' ],
    g => [ 'grapes' ],
  },
  birds => {
    p => [ 'parrot' ],
    c => [ 'crow' ],
  }
);
[download]

Get all fruits with p

@all_p_fruits = @{$h{fruits}->{p}};
[download]

to add a fruit use

push @{$h{fruits}->{p}}, 'peach_yellow';
[download]