Select Code to Download

use strict;
use warnings;
...
        pack => sub {pack("a*" x ($#strings + 1), @strings)},
        }
    );

          Rate pack join
pack  452302/s   -- -58%
join 1073851/s 137%   --