my $dow1 = 1; # (0-7)
  ...
  while ($week_s <= $e) {
    ($week_e = $week_s->clone())->add(
      days => ($dow1 + (7 - $week_s->dow()) % 7,
    );
  ...