for (0 .. $#lines1) {
  print $lines1[$_] eq $lines2[$_] ? $lines1[$_] : '*';
}