You could probably use the Date::Calc module to do this job for you ..

So far as I can tell, all you'd need to do would be calculate the first Saturday of a year (which is relatively simple - Date::Calc will tell you what day a date falls on, then it's simply arithmetic) then repeatedly Add_Delta_Days until the year-end.

Might be more complicated than that .. just a quick thought.

Hope this helps
--Foxcub.