if (      $genomepair eq 'aa' ) { ++$tt; }

##</code><code>##

my %pair_count;

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