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