Select Code to Download

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

#!/usr/local/bin/perl -w
use strict;
...
a b c d
e f g h
rest is i j k l

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";
}