open(file1,"file1.txt");

while (<file1>)
 {
   chop();
   $REC     = $_;
   @LINEREC = split(/\,/,$REC);

print "$LINEREC[0]\n";
}

open(file2,"file2.txt");

while (<file1>)
 {
   chop();
   $REC     = $_;
   @LINEREC = split(/\,/,$REC);

print "$LINEREC[1]\n";
}

if ( $LINEREC[0] eq $LINEREC[1])
{
print $LINEREC[0];
{