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

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

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

close($logfh);