#!/usr/bin/perl -w
use strict;

my $f1 = "/tmp/data_new/MANIFEST-new/MANIFEST.Package";
my $f2 = "/tmp/data-old/MANIFEST-old/MANIFEST.Package";


my $outfile = '/root/result.txt';

open (FD1,$f1) or die "Can not open file".$!."\n";
my %h1 = <FD1>;

#print "\n My Hash1 :" .%hash1."\n";

while(<FD1>){
        chomp;
        my ($key, $array) = split ' ';
        #print "Key eq : $key array eq : $array\n";

}
close(FD1);

open (FD2,$f2) or die "Can not open file".$!."\n";

my %h2 = <FD2>;

while(<FD2>){
#chomp;
my ($key, $array) = split ' ';

if ($h1{$_}){
        delete($h1{$_});
} else {
        $h2{$_}=0;
        }
}
close(FD2);

open(WR,$outfile) or die "Cannot write file: $!";

my @diff = list_diff(keys %h1, keys %h2);
print "Difference in keys: ", @diff, "\n" if @diff;

KEY:
foreach my $key (keys %h1) {
    next KEY unless exists $h2{$key};
    my @diff = list_diff(@{ $h1{$key} },@{ $h2{$key} });
    print "Difference at key $key: ", @diff, "\n" if @diff ;
}