@n = map{ split; $count += $_[2] =~ tr/1/1/; print join "\t", $idx++, $_[2], $count, $count/ $idx; print "\n"; $count; } ; __DATA__ 1 2 31 4 100 5 91111111111111111 1 3 4 -6 1 8888888 8 191 1