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";