Select Code to Download

    sub addregion 
    {
...
        :
        for ($k=0;$k<@$nreg;$k++)
        :

sub addregion 
    {
...
        :
            $tempcoding += $nreg{$sequence}[$k][1] 
                         - $nreg{$sequence}[$k][0] + 1;