use Data::Tabulate;

my $tab = Data::Tabulate->new();
$tab->min_columns( 7 );
$tab->max_columns( 7 );

my @array = map{ {TAGESZAHL => $_}  }( 1 .. Days_in_Month($month,$year) );

@array = map{ {WOCHE => $_} } $tab->tabulate(@array);

$tmpl->param( ALLE_WOCHEN => \@array );