the results may potentially be incaccurate when I have to run this in January

I agree. So, your choice is to add code to handle the corner case for January, or to use one of the CPAN modules that can probably do this cleanly for you. It looks like you can subtract a month using the Add_Delta_YM function from Date::Calc.