foreach my $thr (threads->list()) {
         ##DO something 
        }