Select Code to Download

foreach $x (@x) {  
   open ($x, ">>$log") or die;  
...
}  

close ($x);

open (OUTPUT, ">>$log") or die "Error opening file $log ($!)\n";
my $line = join ' ', @x;
print OUTPUT $line, "\n";
close (OUTPUT) or die "Error closing file $log ($!)\n";