@tsub2   = keys %threads;
@tlist2  = @threads{@tsub2};
@tsize2  = map { scalar @{$_} } @tlist2;
 
print Dumper \@tsub2,\@tlist2,\@tsize2;