Select Code to Download

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

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