@a = ( 5, 6, 7, 8);
&foo(1, 2, @a);

sub foo { my($a, $b, @c) = @_;  print scalar(@c), "\n"; }