sub a($) {
   print @_,"\n";
}

my @x=qw(1 2 3);
a(@x);