Posted to tcl by dandyn at Thu May 18 13:58:39 GMT 2023view pretty

set animalsDog "small dog"
set animalsCat "big cat"
set animalsRat "medium rat"

set x ""
foreach animal [info vars animals*] {
    lappend x $animal
}

puts $x