sub addregion 
    {
        my ($start,$end,$nreg) = @_;
        :
        for ($k=0;$k<@$nreg;$k++)
        :

##</code><code>##

sub addregion 
    {
        my ($start,$end,$sequence) = @_;
        :
        for ($k=0;$k<@{$nreg{$sequence}};$k++)
        :
            $tempcoding += $nreg{$sequence}[$k][1] 
                         - $nreg{$sequence}[$k][0] + 1;