# a computer is processing this data.
# put the data into a form the computer handles better.
$genome =~ y/atcg/0123/;
# voila
for ($i=0;$i<length($genome)-1;$i+=2) {
  $sums[substr($genome,$i,2)]++;
}