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

# my @HoldArray = @{ $fruit{0}{'fruit'} };   # Wasteful copying
my $HoldArray = $fruit{0}{'fruit'};

push @$HoldArray, $new_fruit;