Well, let's see your code. What have you got?

 

#!/USR/BIN/PErl
use strict;
use warnings;
#use TEXT::CSV_XS;
open(DATA1,"<Switcher.properties");
open(DATA2,"<SwitcherNew.properties");
open(DATA3,">CMP.csv");

my %Hash1 = ();
my %Hash2 = ();
my %MissHash1 = ();
my %MissHash2 = ();

while(<DATA1>) {
chomp;
my ($key, $values) = split "=", $_, 2;
my @values = split ",", $values;
$Hash1{$key} = \@values;
}

while(<DATA2>) {
chomp;
my ($key, $values) = split "=", $_, 2;
my @values = split ",", $values;
$Hash2{$key} = \@values;
}
print "\n\n First Hash map \n";
print "\n\n Key : value(s)\n\n";
foreach my $key (sort keys %Hash1) {
print "$key:\n ";
foreach my $value (@{ $Hash1{$key} }) {
print "\t$value\n";
}
}
print "\n\n Second Hash map \n";
print "\n\n Key : value(s)\n\n";
foreach my $key (sort keys %Hash2) {
print "$key:\n ";
foreach my $value (@{ $Hash2{$key} }) {
print "\t$value\n";
}
}
######



print  "\n\nThese are the differences in values for the same keys   \n
+\n";
print DATA3 "\n\nThese are the differences in values for the same keys
+  \n\n";
print DATA3 "\n\nKey     -->  values \n\n"; 
foreach my $key (keys %Hash1) {
foreach my $key1 (keys %Hash2) {

if (!exists  $Hash1{$key1})

{
 
 my @Mvalues= @{ $Hash2{$key1} } ;
 $MissHash1{$key1} =  \@Mvalues ;
}


elsif ($key eq $key1) 
{

if (@{ $Hash1{$key} }  eq @{ $Hash2{$key1} })
{
#print "\n Similarities --> Hash1 value :@{ $Hash1{$key} }  Hash2 valu
+e :@{ $Hash2{$key1} }\n";
}
else {

 
print "\n  $key : \nHash1  @{ $Hash1{$key} } \nHash2  @{ $Hash2{$key1}
+ }\n";
print DATA3 "\n $key :\n";
print DATA3   "             @{ $Hash1{$key} } \n             @{ $Hash2
+{$key1} }\n";

my @m= @{ $Hash1{$key} };

my @n=@{ $Hash2{$key1} };

print "\n The no of comma separated values :  $m  : $n \n";

my $count=0;

foreach my $m1 (@m) {

foreach my $n1 (@n) {


if ($m1 eq $n1)
{
++$count;
}

else {
}
}
}
print "\ncount ---> $count\n";

}
}
}}

foreach my $key1 (keys %Hash2) {
foreach my $key (keys %Hash1) {

 if(!exists $Hash2{$key})
{
 my @Mvalues= @{ $Hash1{$key}};
 $MissHash2{$key} = \@Mvalues ;
}
}
}
print "\n\n These are the keys Added in Hash1 \n";
print DATA3 "\n\n These are the Added keys in Hash1 \n";

foreach my $key ( keys %MissHash2) {
print DATA3 "\n$key : ";
print "\n$key : ";
foreach my $value (@{ $MissHash2{$key} }) {
print DATA3 "\n                $value";
print "\n\t$value";
}
}

print "\n\n These are the keys Added in Hash2 \n";
print DATA3 "\n\n These are the Added keys in Hash2 \n";

foreach my $key ( keys %MissHash1) {
print DATA3 "\n$key : ";
print "\n$key : ";
foreach my $value (@{ $MissHash1{$key} }) {
print DATA3 "\n                $value";
print "\n\t$value";
}
}


print "\n\n";
print DATA3 "\n\n";

close(DATA3);
close(DATA1);
close(DATA2);
[download]