sub some_method {
    my $self = shift;
    my ($various, $other, $parameters) = @_;
}

##</code><code>##

sub process_list {
    my ($some, $positional, $params) = splice @_, 0, 3;

    for(@_) {
        # ...
    }
}