RosettaCodeData/Task/Apply-a-callback-to-an-array/Tcl/apply-a-callback-to-an-array-2.tcl

foreach name [array names dat] {
    myfunc $dat($name)
}