use Benchmark qw(cmpthese);

my @array = (1..1000);

cmpthese(-2, {
    call     => sub { foo(@array);  },
    call_ref => sub { foo(\@array); },
});

sub foo { }

##</code><code>##

              Rate     call call_ref
call      168822/s       --     -93%
call_ref 2575003/s    1425%       --