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

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