open(my $logfh, ">>$log")
    || die("Unable to open log file \"$log\": \l$!.\n");

print $logfh join(" ", map { sprintf "%7d" $_ } @x);

close($logfh);