Evaluated proc find_in_vars str {set ret [list]; foreach var [info vars] {if {[string first [string toupper $str] [string toupper [::$var]]]] != -1} {lappend ret $var}}; if {$ret eq ""} {set ret "None"}; return $ret}