$count{$1}++ while $genome =~ /(?=(..))./g