sub foo_method { my $self = shift; my ($this_arg, $that_arg, $whatever) = @_; ...; }