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