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