Select Code to Download

#!/usr/bin/perl -wl

...
        goto     => sub { @_=(1);  goto  $ref  },
    }
);

            Rate refcall   named    goto
refcall 735179/s      --     -1%    -24%
named   742317/s      1%      --    -24%
goto    973307/s     32%     31%      --