use Date::Calc qw( Business_to_Standard Add_Delta_Days Standard_to_Business ); @temp = Business_to_Standard($year,$week,$dow); @temp = Add_Delta_Days(@temp, $week_offset * 7); ($year,$week,$dow) = Standard_to_Business(@temp);