no warnings 'uninitialized';
($words1[$_] eq $words2[$_] ? $good : $bad)++ 
  for 0..(@words1>@words2 ? $#words1 : $#words2);