@fruit=(Apple, pear, Bananna, Peach); 	# Populate Fruit Array
$new_fruit="Grapes";			# Next Fruit to be added
$fruit{0}=248; 				# Just a random number

$fruit{0}{'fruit'}=@fruit;			# Want to assign array to this location in hash
@HoldArray=$fruit{0}{'fruit'};			# Want to assign array at hash location $fruit{0}{'fruit'} to HoldArray array
push (@HoldArray,$new_fruit);		# Push new_fruit to array
$fruit{0}{'fruit'}=@HoldArray;			# Want to assign updated fruit array to this hash location

#Print out Total fruit and list fruit
print "There are $fruit{0} pieces of fruit. The following is a list of the fruit \n";
foreach ($fruit{0}{'fruit'}) {
   print "$_ \n";
}
exit;

==== End Script =========

==== Begin Output =======
There are 248 pieces of fruit. The following is a list of the fruit
2
==== End Output ========

==== Expected Output ====
There are 248 pieces of fruit. The following is a list of the fruit
Apple
pear
Bananna
Peach
Grapes
==== End Expected Output ====