perl -ane"$x{$.}+=$F[0];$y{$.}+=$F[1];$z{$.}+=$F[2];if(eof){close ARGV
+;if($j){print\"$x{$_} $y{$_} $z{$_}\n\"for keys%x;}$j++}" File1 File2
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.