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