<>; while(<>){ $a=0; $a+=$_ for glob<>; print$a,$/; } print$/;