Select Code to Download

my %count;

...
$count{ substr($seq, $length - 1, 1) }++;
$count{ substr($seq, $length - 2, 1) }++;
$count{ substr($seq, $length - 2, 2) }++;