Select Code to Download

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

open(my $logfh, ">>$log")
    || die("Unable to open log file \"$log\": \l$!.\n");
...
print $logfh join(" ", map { sprintf "%7d" $_ } @x);

close($logfh);