Select Code to Download

#! /usr/bin/perl
# vim:ts=4 sw=4 sts=4 et nu fdc=3:
...

__END__

             Rate   sum_list sum_by_ref
sum_list   4.42/s         --       -45%
sum_by_ref 8.00/s        81%         --

cmpthese( -1, {
    'sum_list'   => sub { sum_list(1..1_000_000);     },    
...
             Rate   sum_list sum_by_ref
sum_list   4.13/s         --        -9%
sum_by_ref 4.55/s        10%         --