if (${$strings[$i]}[$k]) {
  if (${$strings[$j]}[$k]) {
    $c11++;
  } else {
    $c10++;
  }
} else {
  if (${$strings[$j]}[$k]) {
    $c01++;
  } else {
    $c00++;
  }
}