sub ($self,$var,@arr) { }

##</code><code>##

sub () 
{
 my $self = shift;
 my ($var,@arr) = @_;
...
}