use strict;
use warnings;

use Data::Dumper;

my @fruit = qw( Apple pear Bananna Peach );
my $new_fruit = "Grapes";

my %fruits;

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

print "Original fruits:\n", Dumper( \%fruits );

push( @{ $fruits{0}{fruit} }, $new_fruit );

print "New fruits:\n", Dumper( \%fruits );

print "There are ", scalar @{ $fruits{0}{fruit} }, " pieces of fruit:\n";

foreach my $f ( @{ $fruits{0}{fruit} } )
{
	print "$f\n";
}