@dats=<db>;
while (pop(dats) ne "");
とすると
@datsの最後は値があるところになるのかな