Select Code to Download

#!/usr/bin/perl
use warnings;
...
          { simple  => sub { simple(@arr_s);  simple(@arr_ns)  },
            complex => sub { complex(@arr_s); complex(@arr_ns) },
          });

           Rate complex  simple
complex 10723/s      --     -5%
simple  11262/s      5%      --