sourcedoes not accept any additional arguments. But you can use (global) variables to pass arguments, for example:
set ::some_variable some_value
source second.tcl
The second TCL file may refer to a variable, for example:
puts $::some_variable
:
, script . , script , . , :
set ::some_variable some_value
puts $::some_variable