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


}
}