foreach $x (@x) {  
   open ($x, ">>$log") or die;  
   print while (<$x>);  
   printf "%7d",$x; 
}  

close ($x);

##</code><code>##


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