Select Code to Download

#!/usr/bin/env perl

...
        print $fh RECORD x LINES;
    },
};

         Rate singly   list concat string
singly  437/s     --   -64%   -71%   -91%
list   1205/s   176%     --   -20%   -74%
concat 1497/s   243%    24%     --   -68%
string 4720/s   981%   292%   215%     --