my %freq;

...

my $token = $genome[$i] . $genome[$i+1];
$freq{$token}++;

##</code><code>##

$freq{ab}++;
$freq{bb}++;
$freq{bc}++;
$freq{ca}++;