sub foo(\@@) {
  my ($aref,@rest) = @_;
}

##</code><code>##

#!/usr/local/bin/perl -w
use strict;

my @a = qw(a b c d);
my @b = qw(e f g h);
my @c = qw(i j k l);

sub test(\@\@@) {
    my ($a,$b,@rest) = @_;
    print "@$a\n@$b\nrest is @rest\n";
}

test(@a,@b,@c);
__END__
a b c d
e f g h
rest is i j k l

##</code><code>##

test( [qw(a b c d)], [qw(e f g h)], qw(i j k l));
sub test {
    my ($a,$b,@rest) = @_;
    print "@$a\n@$b\nrest is @rest\n";
}