$genome =~ /./g;
$count{$1}++ while $genome =~ /(.\G.)/g