Select Code to Download

use Benchmark 'cmpthese';

...
cmpthese( -1, { g_aa => sub { my @s = gr @u        },
                g_fi => sub {       ( gr @u )[ 0 ] },
                g_na => sub {    () = gr @u        } } );

       Rate s_aa s_na s_fi
s_aa 1037/s   -- -49% -49%
...
g_na 237/s   --   0% -14%
g_aa 237/s   0%   -- -14%
g_fi 275/s  16%  16%   --