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