...
  if (substr(@lines, $_, 1) eq substr (@lines2, $_, 1))
...