while (defined $dates[0]) {
  my $days = $dates[0];
  my ($year, $month, $day) = Add_Delta_Days(1,1,1, $days - 1);
my $new_c = "new HTML::CalendarMonth ( year => $year, month => $month),";  
  push (@cals, $new_c);
  @dates = CreateCal($year, $month, @dates);
}