I found a clue to the disappearing records here Re: How do i create array of arrays. Changing:

push (@records, \@temp) if @temp;
[download]

to:

push (@records, [@temp]) if @temp;
[download]

Gets around the problem of my records being over-written. I welcome any pointers on the rest of the code or the overall strategy. TIA