use Date::Calc 'Add_Delta_Days';
    my $yyyy_doy = "YYYYDOY";
    my ($year, $doy) = $yyyy_doy =~ /(....)(...)/;
    my ($YYYY, $MM, $DD) = Add_Delta_Days ($year, 1, 1, $doy - 1);