my $a = $genome[$i];
my $b = $genome[$i + 1];