for ($i=0; $i<$tsize[$tnum] ; $i++) 
    { $tlist[$tnum][$i] = $threads{$thread}[$i];