Select Code to Download

print "\n\nThe Hash Table\n\n";
foreach $thread (keys %threads) {
...
for ($i=0;$i<$tnum ;$i++) {
    print "\n$tsub[$i], size=$tsize[$i], @{$tlist[$i]";
}