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