sub foo {
   print("There are ", 0+@_, " args\n");
   print("They are @_\n");
}

my @a = qw( a b c );
my $n = 123;

foo(@a, $n);