sub mysub ($self)
{
 my @rest = @_;
}

sub mysub ($self,$nextvar1,$nextvar2)
{
...
}