... I prime the while with a print \ndate ...

Given the example data, there seems to be no reason to treat the first record differently from the succeeding ones. You should realize that to do so is to point a loaded gun at the foot of the maintainer of this code – which may be you!