my @tsub  = keys %threads;
my @tlist = values %threads;
my @tsize = map scalar @$_, @tlist;

print "The Thread Arrays\n\n";
for my $i ( 0 .. $#tsub ) {
    print "$tsub[$i], size=$tsize[$i], @{$tlist[$i]}\n";
}