foreach $line (<$filelog>){
        chomp($line);
        @$ort_log[$site_index]=substr ($line, 2, 1);
        $DB::single=1;
        if ((scalar @$ort_log[$site_index])==scalar '+'){
            @$filelog[$site_index]=substr ($line, 4, -1);
            $site_index=$site_index+1;
        }else{
            @$filelog[$site_index]=(substr ($line, 4, -1))+4;
            $site_index=$site_index+1
        }
    }


##</code><code>##

x @$ort_log[$site_index]

##</code><code>##

            @$filelog[$site_index]=substr ($line, 4, -1);
            $site_index=$site_index+1;