Select Code to Download

use strict;
use warnings;

$fruit{0}{'fruit'} = \@fruit;

...
my $HoldArray = $fruit{0}{'fruit'};

push @$HoldArray, $new_fruit;