sub hash_array {
    my ($genome,@genome) = @_;
    $counts { $genome [$i] . $genome [$i + 1] } ++ for (0..$#genome);
}