vec($offsets, $., 32) = tell IN while <IN>;
...
seek $fh, vec($offsets, $line, 32), 0;