my $htc = HTML::Template::Compiled->new(
            filename          => "$datadir/template/termine.html",
            tagstyle          => [ qw(+php) ],
            loop_context_vars => 1,
            use_expressions => 1,
        );
        my @row_names = qw( Datum Zeit Ort Veranstaltung);

        foreach my $i ( 0 .. @data - 1 ) {
            my ( $t ) = $data[ $i ]{ Veranstaltung } =~ s/\\n/\n/g;
            $textile =
              Text::Textile->new( disable_html => 1, flavor => 'html' );
            if ( $textile ) {
                $data[ $i ]{ Veranstaltung } =
                  $textile->process( $data[ $i ]{ Veranstaltung } );
            }
            else {
                warn( "$PACKAGE: Problem with Textile in Code : $t" );
                last;
            }
        }

        $htc->param(
            termine => {
                column_names => \@row_names,
                data         => \@data
            }
        );
        $str = $htc->output();

[
          {
            "Veranstaltung" => "C-Workshop 2020 Testdorf",
            "Zeit" => "12:00",
            "Datum" => "01.02.2012",
            "Ort" => "Testdorf",
            "Veranstalter" => "Tim Towdi"
          },
          {
            "Veranstaltung" => "Perlen für Anfänger",
            "Zeit" => "18:00",
            "Datum" => "01.03.2012",
            "Ort" => "Perlsen",
            "Veranstalter" => "IHK Perlsen"
          }
        ];

<table>
	<caption>Veranstaltungen</caption>
	<thead>
		<tr>
			<?LOOP .termine.column_names?>
			<td><?= _ ?></td><?/LOOP?>
		</tr>
	</thead>
	<tbody>
		<?LOOP .termine.data alias=termin?>
		<tr>
            		<?LOOP .termine.column_names?>
            		<td><?= termin._ ?></td>
			<?/LOOP?>
		</tr>
		<?/LOOP?>
		</tbody>
</table>

<table>
	<caption>Veranstaltungen für </caption>
	<thead>
		<tr>

			<td>Datum</td>
			<td>Zeit</td>
			<td>Ort</td>
			<td>Veranstaltung</td>
		</tr>
	</thead>
	<tbody>

		<tr>

            <td></td>

            <td></td>

            <td></td>

            <td></td>

		</tr>

		</tbody>
</table>

{
            "Veranstaltung" => "C-Workshop 2020 Testdorf",
            "Zeit" => "12:00",
            "Datum" => "01.02.2012",
            "Ort" => "Testdorf",
            "Veranstalter" => "Tim Towdi"
          }