print "Content-Type: text/html\n\n";
print $header->output;
my @loop_data = ();
while($ref = $sth->fetchrow_hashref()) {
  push 
    @loop_data,
    { ZENSUR => $ref->{word},
      ERSATZ => $ref->{replacement},
      ANZEIGE => 1,
      FORMULAR => 0,
    },
  ;
} 
$subtemplate->param(THIS_LOOP => \@loop_data);
$content = $subtemplate->output();
$template->param(CONTENT => $content);
print $template->output;
print $footer->output;
exit;