UNIXといえばＣでしょ
PerlでもCでもコーディング量はそんなに変わらん気がする

main() {
　int loop, i, n, m;
　char fn[100];
　static long a[9], b[9];
　FILE *fp;

　for(loop=0; loop<100000; loop++) {
　　　sprintf(fn, "a%06d.txt", loop);
　　　fp = fopen(fn,"r");
　　　while(fscanf(fp, "%d %d %d", &i, &n, &m) == 3)
　　　　　　a[i]+=n;
　　　　　　b[i]+=m;
　　　}
　　　fclose(fp);
　}

　for(i=1; i<=8; i++)
　　　printf("%d %d %d\n", i, a[i], b[i]);
}