$ perl test7.pl | wc -l
8000000

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

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

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