Select Code to Download

foreach $line (<$filelog>){
        chomp($line);
...
        }
    }

x @$ort_log[$site_index]

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