&d(scalar(@a),@a, @b);

sub d{
  my ($len,@c)= @_;
  my @d= splice(@c,$len);
  ...