my @sunday_date = Monday_of_Week(Week_of_Year( @starting_date ));
$sunday_date[2]--;