foreach $thread (keys %threads) {
    $tsub[$tnum] = $thread;    
    $tlist[$tnum] = $threads{$thread};
    $tsize[$tnum] = @{$tlist[$tnum]};
    $tnum++;
}

print "\n\nThe Thread Arrays\n\n";
for ($i=0;$i<$tnum ;$i++) {
    print "\n$tsub[$i], size=$tsize[$i], @{$tlist[$i]}";
}