Help for this page
111011001010011110100010100001 111010000010010110000010000001 ... 000101111101001001111101111110 111011001010111110100010100001 000100010100000000010001010000
my @strings = qw/111011001010011110100010100001 111010000010010110000010000001 ... print join( "\t", $i, $j, $c00, $c01, $c10, $c11 ), "\n"; } }