Select Code to Download

#!/usr/bin/perl
use strict;
...
    "array_want"    => sub { my @test = want()   },
    "array_nowant"  => sub { my @test = nowant() },
} );

                  Rate   scalar_want scalar_nowant
scalar_want   740741/s            --          -15%
...
               Rate   array_want array_nowant
array_want   2778/s           --          -1%
array_nowant 2797/s           1%           --