my @ar = qw/ foo bar baz /;
func(\@ar);

sub func {
  my $ar = shift;

  ## note the dereference via ->
  print $ar->[0];
}

__output__

foo