use strict;
use warnings;

use Benchmark qw( cmpthese );

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

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