tcl check if value exists in list

1# Make List object
2set List_to_Search [list 1 2 3 4 5 6 7 8 9];
3# Identify item to search for:
4set findMe 7;
5# Search List using lsearch, returns index of first occurrence found
6set index [lsearch $List_to_Search $findMe];
7# > 6
8puts "$findMe = [lindex $List_to_Search $index]";
9# If object isn't contained in list - returns '-1' as index:
10set notFound [lsearch $List_to_Search 99];
11puts "99 not found in List;  $notFound";