Help for this page
for ($i=0; $i<$tsize[$tnum] ; $i++) { $tlist[$tnum][$i] = $threads{$thread}[$i];
push( @{$tlist[$tnum]}, @{$threads{$thread}} );