my $sql = "SELECT * FROM db50";
my $sth = $dbh->prepare ( $sql ) || die "Kann Satement nicht vorbereiten: $DBI::errstr\n";
$sth->execute();

my $template = HTML::Template->new(filename => 'test2.html');


my (@eintraege,@ergebnisse,@result,@check);

while(my @result = $sth->fetchrow_array()){
        push(@ergebnisse,\@result);
}

foreach my $eintrag(@ergebnisse){
        my %hash = (        
        ID => $eintrag->[0],
        NAME => $eintrag->[1],
        CAT => $eintrag->[2],
        );
        push(@eintraege,\%hash);
}

if ($eintraege[2] eq "4") {
        $template->param(ABFRAGE_2 => \@eintraege);
        
}
else {
        $template->param(ABFRAGE => \@eintraege);
}