Shell Programming and Scripting

#!/usr/bin/perl
chomp(@files=`find . -name "out.dat"`);
for $f (@files){
  open F, "$f";
  chomp(@rows=<F>);
  for $r (0..$#rows){
    @cells=split / /,$rows[$r];
    for $c (0..$#cells){
      $sum[$r][$c]+=$cells[$c] if $c>0;
      $sum[$r][$c]=$cells[$c] if $c==0;
    }
  }
}
for $r (0..$#rows){
  print "@{$sum[$r]}\n";
}

awk '{i=1;A[FNR":"i]=$1
        do {x=FNR":"(++i)
                A[x]+=$i
        }while(i<NF)
}END{f=1;do {
        k=1;do{
                y=(y?y OFS:z) A[f":"k]
        }while(++k<=NF)
        print y;y=z
}while(f++<FNR)}' dir*/out.dat

$ cat dirA/out.dat
1 10 20 30 40
2 50 60 50 10
$ cat dirB/out.dat
1 11 23 40 30
2 20 30 10 50
$ cat my.awk
{i=1;A[FNR":"i]=$1
        do {x=FNR":"(++i)
                A[x]+=$i
        }while(i<NF)
}END{f=1;do {
        k=1;do{
                y=(y?y OFS:z) A[f":"k]
        }while(++k<=NF)
        print y;y=z
}while(f++<FNR)}
$ awk -f my.awk OFS="\t" dir*/out.dat
1       21      43      70      70
2       70      90      60      60
$