while (defined $dates[0]) {
  my $days = $dates[0];
  my ($year, $month, $day) = Add_Delta_Days(1,1,1, $days - 1);
  @dates = CreateCal($year, $month, @dates);
}