reProblème de TCL

bonjour a tous, j'ai un petit soucis sur un script TCL. Je m'explique :

j'ai deux variables 1 et 2 et je compare chaque élément de la variable 2 avec la variable 1 si l'élément de la variable 2 est dans la variable 1 alors le garder sinon le retirer de la variable 1

un petit exemple :
set variable1 "TEST1~TEST2~TEST3~TEST4~TEST6~TEST7"
set variable2 "TEST2~TEST4~TEST5~TEST6"
set variable1bis [split $variable1 "~"]
set variable2bis [split $variable2 "~"]
foreach variable2bisbis $variable2bis {
puts "$variable2bisbis ??????,"
foreach variable1bisbis $variable1bis {
puts "$variable1bisbis !!!!!!!!!!!"
if { $variable2bisbis == $variable1bisbis } {
set variableagarder "$variable2bisbis"
puts "pareil"
puts " iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii $variable2bisbis "
break;
}
}

}

résultat obtenu :
TEST2 ??????,
TEST1 !!!!!!!!!!!
TEST2 !!!!!!!!!!!
pareil
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii TEST2
TEST4 ??????,
TEST1 !!!!!!!!!!!
TEST2 !!!!!!!!!!!
TEST3 !!!!!!!!!!!
TEST4 !!!!!!!!!!!
pareil
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii TEST4
TEST5 ??????,
TEST1 !!!!!!!!!!!
TEST2 !!!!!!!!!!!
TEST3 !!!!!!!!!!!
TEST4 !!!!!!!!!!!
TEST6 !!!!!!!!!!!
TEST7 !!!!!!!!!!!
TEST6 ??????,
TEST1 !!!!!!!!!!!
TEST2 !!!!!!!!!!!
TEST3 !!!!!!!!!!!
TEST4 !!!!!!!!!!!
TEST6 !!!!!!!!!!!
pareil
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii TEST6

je voudrais récupérer une variable 3 comme ceci :
TEST2~TEST4~TEST6

Merci d'avance