for (my $i=0; $i < @genome; $i++)  {

     my $token = $genome[$i] . $genome[$i+1];
     $freq{$token}++;
     $tt = $freq{tt};
     $cg = $freq{cg};
     $gc = $freq{gc};
     $ta = $freq{ta};
     $at = $freq{at};
     $cc = $freq{cc};
     $tg = $freq{tg};
     $ag = $freq{ag};
     $ac = $freq{ac};
     $ga = $freq{ga};
     $aa = $freq{aa};
     $gg = $freq{gg};
     $ca = $freq{ca};
     $ct = $freq{ct};
     $gt = $freq{gt};
     $tc = $freq{tc};

}