#! /usr/bin/perl
use strict;
my $rc = 0;
my %File1hash = ();
my %File2hash = ();
my @UnMatchFieldsDet = ();
my $mLineno = 0;
my $mUnMatchFieldCount = 0;
my $mMatchFieldCount = 0;
my $mFieldCount = 0;
open(FILE1,"<1.csv") or $rc = 1;
open(FILE2,"<2.csv") or $rc = 2;
while ( <FILE1> )
{
   $mLineno++;
   my $mFieldno = 0;
   my @LineInfo = split ( "\t",$_ );
   foreach my $mFieldVal ( @LineInfo )
   {
      $mFieldno++;
      chomp ( $mFieldVal );
      $File1hash{$mLineno}{$mFieldno} = $mFieldVal;
   }
}
$mLineno = 0;
while ( <FILE2> )
{
   $mLineno++;
   my $mFieldno = 0;
   my @LineInfo = split ( "\t",$_ );
   foreach my $mFieldVal ( @LineInfo )
   {
      $mFieldno++;
      chomp ( $mFieldVal );
      $File2hash{$mLineno}{$mFieldno} = $mFieldVal;
   }
}
foreach my $mLineNoKey ( sort keys %File1hash )
{
   foreach my $mFieldNoKey ( sort keys %{$File1hash{$mLineNoKey}} )
   {
      $mFieldCount++;
      if ( $File1hash{$mLineNoKey}{$mFieldNoKey} eq $File2hash{$mLineNoKey}{$mFieldNoKey} )
      {
         $mMatchFieldCount++;
      }
      else
      {
         $mUnMatchFieldCount++;
         push( @UnMatchFieldsDet, "Line:$mLineNoKey Field:$mFieldNoKey" );
      }
   }
}
print "Total Field Count: $mFieldCount\n";
print "Match Field Count : $mMatchFieldCount\n";
print "UnMatch Field Count : $mUnMatchFieldCount\n";
print "\nUnMatch Details\n" if ( $mUnMatchFieldCount >= 1 );
foreach my $msg ( @UnMatchFieldsDet )
{
   print "$msg\n";
}