sub SUBNAME($@;\%) 

##</code><code>##

sub mysub($@\%) {
    my ($one, @two, $ref) = @_;
    print "@two\n";
}

mysub('a','b','c','d');

##</code><code>##

b c d

##</code><code>##

mysub('a');