最简单的文件行行比较，为什么不行？该如何解决

最简单的文件行行比较，为什么不行？
#!/usr/bin/perl


              open(FILE1, "1.txt ")   or   die   "i   can 't   filnd   the   file1!\n ";
              open(FILE2, "2.txt ")   or   die   "i   can 't   filnd   the   file2!\n ";


          @a1= <FILE1> ;
          @a2= <FILE2> ;

        #   print   $#a1;
        #   print   $#a2;

          for   ($i=0;   $i <$#a1;   $i++)
          {
#   $a1[$i]=   chomp   $a1[$i];
#   $a2[$i]=   chomp   $a2[$i];
          print   $a1[$i];
          print   $a2[$i];

      if   ($a1[$i]   eq   $a2[$i])
      {
          print   "ok   \n ";
      }
          }

              close   (FILE1);
              close   (FILE);

为什么不同行都会打印OK呢。

[解决办法]
没打印成OK啊。