#!/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  },
    }
);