open INDEX, "<:raw","$index" or die "Can't open $index for reading: $!";
my $len = -s( INDEX );
sysread INDEX, my( $idx ), $len;
close INDEX;
open FILE, "<$oneper" or die "Can't open $oneper for reading: $!";
foreach my $lineNum (sort {$a cmp $b} keys %todo) {
my $offset = unpack 'N', substr $idx, ( $lineNum - 1 ) * 4, 4; ## Modified!!
print "offset is $offset for linenum $lineNum\n
";
seek FILE, $offset, 0;
my $line = ;
print "found line $line\n";
}