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

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


##</code><code>##

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

OR
sub mysub
{
 my $self = shift;
 ...some code .. $nextvar1 = shift;
 ...code ... 
 $nextvar2 = shift;
}