open IN, '<', '/path/to/the/Datafile.txt' or die $!;
open out, '>:raw', /path/to/the/indexfile.idx' or die $!;

my $pos = 0;
print( OUT pack 'VQ', m[^(\d+),], $pos ), $pos = tell( IN ) while <IN>;

close OUT;
close IN;