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