Help for this page

Select Code to Download

Select or download this

@anc=("BX1.01.001","BX1.01.002","BX1.01.003","BX1.01.004","BX1.01.005"
+,"BX1.01.006");
@ind=("BX1.01.002","BX1.01.002","BX1.01.003","BX1.01.004","BX1.01.005"
+,"BX1.01.006");

Select or download this

sub comp_arr
{
...
        print ("Anchor/indicator mismatch in $arr1[$x]\n");
        }
    }