Select Code to Download

use strict;
use warnings;
...
    'join' => sub { join('', qw/1 2 3 4 5 6/) },
    'pack' => sub { pack('b', qw/1 2 3 4 5 6/) },
});

% perl test.pl
elephants
...
join 1002841/s   -- -53%
pack 2119814/s 111%   --
%