my ( $prev, %pairs );
for ( @genome ) {
    $pairs{ $prev . $_}++; 
    $prev = $_; 
};
delete $pairs{a}, $pairs{c}, $pairs{t}, $pairs{g};