push( @{$tlist[$tnum]},  @{$threads{$thread}} );