$ perl -e 'sub aa {my $a = @_;print $a}; aa(qw(foo bar baz))'
3