Select Code to Download

string A: 0 1 0 1
string B: 1 1 0 1
...
          | | +----> 00
          | +------> 11
          +--------> 01

my @data = qw[
  111011001010011110100010100001
...

  }
}

for my $i (0 .. $#data) {
  for my $j ($i+1 .. $#data) {
...
    print Dumper \%counts;
  }
}