my %freq;

...

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