print month_as_html ($rm,$ry,$links,$rechts,$cgi_path,$images_path,$datum,\@test);
.
.
.
sub month_as_html {
  my ($rm,$ry,...,$testref) = @_;
  my @test = @$testref;