Select Code to Download

my %freq;

...

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

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