#!/usr/bin/perl -w
#use integer;
my $file = 'test_data.dat';
open (IN,$file) or die "Can't open file - $file - $!";
my $data;
print "Reading: [$file]\n";
my $val = 0;
my @arr;
while (<IN>){
	/(?:\d+,){99}(\d+),/;
	$val += $1;
	#print "$1\n";
	#@arr = split(',', $_);
	#$val = $arr[99];
	#print "$val\n\n";
	print STDERR "Working on: [$.]:[$val]\r" unless ($. % 100_000);
}
print STDERR "Final: [$val]\n";
exit;