bh_perl:

The second read is the condition of a while loop, so it's going to run it again. If you want it to read only once, don't put it in a loop. Your until loop should be sufficient to read all the records.

...roboticus