Hi!

Try this:

my @file = @ARGV;
my @coords;
foreach $f (@file) {
    open (FILE, "<$f");
    while (<FILE>) {
        my @line = split(/\s+/,$_);
        for my $i (0..$#line) {
            $coords[$i] += $line[$i];
        }
    }
    close FILE;
}
print "@coords\n";
[download]

mawe