Select Code to Download

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

# Define the arrays as lexical vars. 
# So you are sure they are not conflicting with other vars in the prog
+ram
...
    my $tsize=@{$tlist[$i]};
    print "\n$tsub[$i], size=$tsize, @{$tlist[$i]}";
}