} else { # Uh-oh, this is the continuation of last years december... my $decend = Date::Manip::Date->new(); $decend->parse($year . '-12-31'); my $decday = $decend->printf('%j'); $decday =~ s/^0+//g; my $prevyeardays = $decday - $septday + 1; my $daycount = $dayofyear + $prevyeardays; $year--; # previous years december $outstring = ordinate($daycount) . ' December ' . $year } }