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

foreach var $dat {
    myfunc $var
}