m[\d+:(.:.)] and ++$stats{ $1 } for dnacmp( @seqs[ $i, $j ] );