Hi
When call the below perl file comparision script , I was getting records which are having differences but not in what I am expecting

$f1 = 'a';
open FILE1, "$f1" or die "Could not open file \n";
$f2= 'b';
open FILE2, "$f2" or die "Could not open file \n";
$outfile = 'diff.txt';
my @outlines;
 foreach (<FILE1>) {
$y = 0;
$outer_text = $_;
seek(FILE2,0,0);
foreach (<FILE2>) {
$inner_text = $_;
 if($outer_text eq $inner_text) {
$y = 1;
print "$outer_text, Match found \n";
last;
}
}
if($y != 1) {
print "$outer_text\n";
print "$inner_text\n";
push(@outlines, $outer_text);
}
}
open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \n";
print OUTFILE @outlines;
close OUTFILE;
close FILE1;
close FILE2;

you can use File::Compare?