foreach {x y} {another Just hacker TCL} {lappend l $y $x}; puts [join $l]

'''Projects'''
    * http://jaen.saul.ee/tcl/ - [CleanTCL]