This is what i did its slightly different from yours.

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

Well, that's actually way different from what Blockhead was doing -- he was using "substr()" on a scalar ($line); substr() is not supposed to be used on an array (@lines).