# Test data generator
use strict;
use warnings;

open outFile, "> data.txt";
print outFile ("0," x 99) . "$_," . ("0," x 10) . "0\n" for (1..1000000);
close outFile;


# Sum test
use strict;
use warnings;
use Time::HiRes;

my $val = 0;
my @arr;
my $start = time ();
open inFile, "< data.txt";
while (<inFile>)
    {
    /(?:\d+,){99}(\d+),/;
    $val += $1;
    }
close inFile;
print "Final: [$val] (elapsed time " . (time () - $start) . " seconds\n";