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);
}

if ($eintraege[2]->{CAT} eq "4") {

while (my @result = $sth->fetchrow_array) {

if ($result[2] eq "4") {

    print qq {
   <td>$result[0]</td>
   <td>$result[1]</td>
   <td><a href="link.pl">$result[2]</a></td> # es geht mir um diesen link bei der ausgabe der datensätze wenn spalte CAT eine zahl 4 beinhaltet, andernfalls
        
    };
}
else {

    print qq {
   <td>$result[0]</td>
   <td>$result[1]</td>
   <td>$result[2]</td>
        
    };


}
}

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

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

my @ergebnisse

while(my @result = $sth->fetchrow_array()){
    $result[2] = '<a href=="link.pl">'.$result[2].'</a>' if($result[2] == 4);
    my %hash = (
       ID => $result[0],
       NAME => $result[1],
       CAT => $result[2],);
    push(@ergebnisse,\%hash);
}

$template->param(ABFRAGE => \@ergebnisse);

my (@ergebnisse,$set);

while(my @result = $sth->fetchrow_array()){
   $result[2] = '<a href=="link.pl">'.$result[2].'</a>' if($result[2] == 4);
  
   
   $set = '<img src="images/ic_parkingAvailable.gif">' if($result[2] == 4);

   my %hash = (
      ID => $result[0],
      NAME => $result[1],
      CAT => $result[2],
      CHECKED => $set,);
   push(@ergebnisse,\%hash);
}

$template->param(ABFRAGE => \@ergebnisse);

 <tmpl_loop name="ABFRAGE">
 <tr>
   <td>  <INPUT TYPE="text" NAME="" value="<tmpl_var name="ID">"></td>
   <td><tmpl_var name="NAME"></td>
   <td ><tmpl_var name="CAT"></td>
   <td ><tmpl_var name="CHECKED"></td>
 </tr>
 </tmpl_loop>