Evaluated set i 1; set out ""; foreach line [ltop [lreverse [log]] 100] { if {[second $line] == "kloeri"} { append out "[datetime [first $line]]\n" } }; . $out