#!/usr/bin/perl -wl

use strict;
use Benchmark qw (cmpthese);

my $ref = sub { @_ }; 
sub foo { @_ }

cmpthese(-1,
    {
        refcall  => sub { @_=(1); $ref -> (@_) },
        named    => sub { @_=(1);   foo (@_)   },
        goto     => sub { @_=(1);  goto  $ref  },
    }
);

##</code><code>##

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