my @seq = split(//,$string);
   my $i = 0;
   foreach my $letter (@seq){
      $counts{$letter}[$i]++
      $i++;
   }

##</code><code>##

my $i=0;
$counts{$1}[$i++]++ while $string =~ /(.)/g;