#!/usr/bin/perl
use strict;
use warnings;

my %HoA1 = (
    Fruits    => [ "Apple", "Orange", "Banana", "Grapes" ],
    );

my %HoA2 = (
    Fruits1   => [ "Apples", "Orange", "pineapple", "Grapes" ],
    );