perl中同时读取两个文件并进行对应计算

用句柄读取大文件进数组是很占内存的事，所以，一边读数据，一边处理数据，处理完之后就直接输出到文件，这是个很靠谱的想法，尤其是处理特大数据的时候，这个想法尤其珍贵。下面是具体例子：

输入文件1：

31      0
32      0
33      0
34      0
35      0
36      0
37      0
38      0
39      0
40      0
41      0
42      0.95
43      0
44      0

输入文件2：

92      0
93      0
94      0
95      0
96      0
97      0
98      0
99      0
100     0
101     0
102     0
103     0
104     0
105     0
106     0
107     0
108     0
109     0
110     0.138888888888889
111     0
112     0
113     0
114     0
115     0
116     0
117     0
11