Recursive glob

proc scan_dir {dirname pattern} {
    set out [list]
    foreach d [glob -type d -nocomplain -dir $dirname *] {
        set out [concat $out [scan_dir $d $pattern]]
    }
    concat $out [glob -type f -nocomplain -dir $dirname $pattern]
}

puts [scan_dir ~ *oo*]