This is a FAQ. See perlfaq4 on "difference".

Hello Nansh,

You need to show us at least that you tried to find a solution to your problem.

Your code does is not even correctly defined:

When it should be like this:

Help us to help you, read (How do I post a question effectively?)

A good starting point could be (Test::More):

If you modify the keys to be the same e.g. "Fruits1" to "Fruits":

Update: Based on your title of your question "Findidng Difference between two hash of arrays" you mean that you have two different hashes that contain array(s) inside. But based on your update of your question you probably mean that you have one hash with two arrays inside. This is why you should show us sample of your code and what you have tried so far.

Having said that sample of solution:

I used Array::Utils module to compare the arrays, it has also some other features that you might be interested.

Update2: In case that you where trying to compare hashes of arrays as my initial impression try something like this:

Hope this helps.

"Orange you glad I did not say 'banana?'"

use strict;
use warnings;
use Set::Array;
use Data::Dumper;
my %HoA = (
    'Fruits'  => [ 'Apple',  'Orange', 'Banana',    'Grapes', ],
    'Fruits1' => [ 'Apples', 'Orange', 'pineapple', 'Grapes', ]
);
my $set1 = Set::Array->new(@{$HoA{Fruits1}});
my $set  = Set::Array->new(@{$HoA{Fruits }});

$HoA{difference} = [Set::Array::difference($set1, $set, 0)];

print Dumper(\%HoA);

OUTPUT:
$VAR1 = {
          'Fruits1' => [
                         'Apples',
                         'Orange',
                         'pineapple',
                         'Grapes'
                       ],
          'Fruits' => [
                        'Apple',
                        'Orange',
                        'Banana',
                        'Grapes'
                      ],
          'difference' => [
                            'pineapple',
                            'Apples'
                          ]
        };
[download]