$counts {$genome [$i] . $genome [$i + 1]} ++;