Select Code to Download

use strict;
use warnings;
...
   g_scalar => sub { @_=(1); goto $ref  },
   g_amp    => sub { @_=(1); goto &$ref },
});

              Rate    named  refcall    g_amp g_scalar
named     811837/s       --      -1%      -3%     -26%
refcall   820126/s       1%       --      -2%     -25%
g_amp     834174/s       3%       2%       --     -24%
g_scalar 1099304/s      35%      34%      32%       --