Select Code to Download

my %h = (
  fruits => {
...
    c => [ 'crow' ],
  }
);

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

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