Select Code to Download

use strict;
use warnings;
...
foreach (@arrThreads) {
    my $num = $_->join;
}

# perl thrprog.pl
Done 0.2 of 1000
...
Current count is 4
Done 0.31 of 1000
Current count is 5