Agree with chromatic. I tried following:

use Benchmark qw(cmpthese);

my @array = (1..1000);

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

sub foo { }
[download]

and got that call with reference is much faster:

              Rate     call call_ref
call      168822/s       --     -93%
call_ref 2575003/s    1425%       --
[download]

-- Roman