#snippet

while (my @result = $sth->fetchrow_array) {
if ($result[1] eq "TERMIN") { print qq{ etc..}
}