foreach(@PrjList2)
    {
        if($_ ne " ")
        {
            GetDocu($_, $PrjList1[1]); ####line 1029
        }
        $i++;
    }