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

##</code><code>##

++$stats{ $1 } while $res =~ m[:(.:.)]g;