tcl lists rock

lsearch -all -inline $items {144*[1-9]}
lsort -unique [lsearch -all -inline $items {144*[1-9]}]
llength [lsort -unique [lsearch -all -inline $items {144*[1-9]}]]
set 144_unique_items [lsort -unique [lsearch -all -inline $items {144*[1-9]}]]