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

sub func {
  my $ar = @_;
}