use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);

sub foo(\@)
 {my ($array) = @_;
  say "@$array";
 }

my @array = qw(1 2 3);
foo(@array);