Select Code to Download

use v5.030;
use threads;
...
}

$_->join for threads->list;

$ perl test7.pl | wc -l
8000000
...

$ perl test7.pl | LC_ALL=C sort -u | wc -l
8000000

$ perl test7.pl | wc -l
8000000
...

$ perl test7.pl | LC_ALL=C sort -u | wc -l
7446785