If you just want to scoop the first couple of parameters, you can do something like this:

sub f {
    my ($x,$y,@z) = @_;

    print "$x\n$y\n@z\n";
}

f("first","second","third","fourth");
[download]

Prints:

first
second
third fourth
[download]