define a  [file-split-path-list "/home/msilva/Trabalhos/DesTea/destea/trunk/t_tea/IO                                    /home/msilva"] 

echo [length $a]

foreach b $a {
    echo $b 
    echo "\n"
}