$count{$1}++ while $seq =~ /(?=(.{1}))/g;
$count{$1}++ while $seq =~ /(?=(.{2}))/g;
$count{$1}++ while $seq =~ /(?=(.{3}))/g;