in reply to Very large text file - simple indexing
Those records are so simple, I'd make sure they were fixed length (rewriting the file if necessary) and simply seek( FILE, $index*$reclen, 0 ) then readline (<FILE>).