while (<FH>) {
    push @index, tell(FH);
}