Sim, não há problema com tantos argumentos. Dependendo da sua versão esperada, você extrai os valores com um destes:
lassign $::argv \
src_file src_user src_pass src_host \
dest_file dest_user dest_pass dest_host
# or
foreach {src_file src_user src_pass src_host dest_file dest_user dest_pass dest_host} $::argv {break}
Em algum momento, a interface do usuário fica difícil de gerenciar. Você pode querer olhar para o uso de opções de linha de comando para ajudar a manter as coisas corretas. Confira o cmdline
package de tcllib
. Então você pode fazer:
expect my_x_script.exp \
-src_file file_src \
-src_user s_user \
-src_pass s_pass \
-src_host s_host \
-dest_file file_dest \
-dest_user d_user \
-dest_pass d_pass \
-dest_host d_host