my @c = map { $a[$_] == $b[$_] ? 1 : 0 } 0 .. $#a;