seek FIN, $index[4], 0;
print FOUT scalar <FIN>;