for(my $i = 0; $i < @lines1; $i++) {
   if($lines1[$i] eq $lines2[$i]) {
      print("same.\n");
   } else {
      $difference++;
}