my %pair_count;

my $genomepair = $genome[$i] . $genome[$i+1];
$pair_count{$genomepair}++;