Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        $k *= $thr2->join();
    }
});

          Rate threads   while     for
threads 3.09/s      --    -29%    -38%
while   4.33/s     40%      --    -13%
for     4.96/s     60%     15%      --