getting the correct position by using

my @indx;
my $pos = 0;

while(<FH1>){
    my ($id, $seq) = split /\t/;
    push(@indx, "$id\t$pos");
    $pos = tell FH1;
}
[download]

thanks for that !!! trying to read the correct line now...