Select Code to Download

# 4 GHz, CentOS 7 ( Perl v5.16.3 )

...
duration:  1.544 seconds
   50000

# 4 GHz, CentOS 7 ( Perl v5.16.3 )

...
duration: 90.015 seconds
   1600000

my @names = shuffle qw/ Barny Betty Fred Wilma /;

...
64
128

      ...
      # send greeting again
...
      last if ++$count == 12500;
      ...