Select Code to Download

use Memchmark qw(cmpthese);

my @data = 1..$ARGV[0];
cmpthese(-1, { foo => sub { my @out = foo(@data) },
               bar => sub { my @out = bar(@data) } });