foreach $thread (keys %threads) 
{
  print "thread=$thread, values are ". @{$threads($thread)}."\n ";
}