while (my @result = $sth->fetchrow_array) { if ($result[2] eq "4") { print qq { $result[0] $result[1] $result[2] # es geht mir um diesen link bei der ausgabe der datensätze wenn spalte CAT eine zahl 4 beinhaltet, andernfalls }; } else { print qq { $result[0] $result[1] $result[2] }; } }