my @index;
do {push @index, tell FIN} while <FIN>;
pop @index;