@n=map {$count+=$_} ; print "@n\n"; __DATA__ 1 2 3 6 -5 6 #### 1 3 6 12 7 13