What? Am I missing something here? It seems that there are two major flaws in this:

1. I think that the comparison is backwards. If $y >= $start_y then the record is newer (not older) than the date 90 days ago.

2. The date comparison strategy is all wrong. Would Nov. 3 come before Oct. 6, just because 3 <= 6?

Update: And all of this assumes that there are no problems using localtime's month (zero-based) and year (minus 1900) to compare to the records...

About the next version of the code:

Is this method of comparing dates supposed to work in Perl? Not in my version, it doesn't. The dates '2001-10-06' and '2001-11-03' will be EQUAL in a numeric comparison. Numerically, they're both equal to 2001.

And finally...

Yes. This version will do nicely. I made davorg work pretty hard for my ++ this time...

buckaduck