open(file1,"file1.txt") || die ("cannot open file");

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

   open(file2,"file2.txt") || die ("cannot open file");

   while (<file2>)
     {
        chop();
        $REC     = $_;
        @LINEREC = split(/\,/,$REC);
        $data2 = @LINEREC[1];

        if ($data1 eq $data2)
           {
             print "$data1\n";
           }

     }
 }
close file1;
close file2;