Select Code to Download

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

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

b c d

mysub('a');