#!/bin/perl -T
use strict;
print "Content-Type: text/html\n\n";
...
print "var _termine = new Array (\n";
for (@termin)
{ sprintf
    qq~  new Array (%d, "%s", "%s"),\n~,
    ...
}
...