In the script go to the field you want to copy from use the Get(ActiveFieldContents) then use the set by name to put it where you want.
For your SOURCE data, you probably want to use sommething like:
GetField ( "Contacts::address_" & $source & "_city" )
-- Drew Tenenholz
I had an Evaluate in the set field by name that I forgot to pull out.