my %day = qw(
  Sun 0
  Mon 1
  Tue 2
  Wed 3
  Thu 4
  Fri 5
  Sat 6
);

($year, $month, $day) = Add_Delta_Days($year, $month, $day, (7 + $day{Mon} - $dow) % 7);