use strict;
use warnings;

use Benchmark qw( cmpthese );

my $dummy;

sub test {
   # Dummy load.
   $dummy = join('', @_);
}

sub normal    { test(@_);    }
sub uses_goto { goto(&test); }  # goto &
sub uses_amp  { &test;       }  # & and no args

cmpthese(-3, {
   normal    => sub { normal   (1, "Hello World!", []); 1; },
   uses_goto => sub { uses_goto(1, "Hello World!", []); 1; },
   uses_amp  => sub { uses_amp (1, "Hello World!", []); 1; },
});