for my $d ( 1 .. Days_in_Month($year, $month) ) {
# ????
}

$template->param(
    ALLE_WOCHEN => \@AlleWochen
    );