Как передать необязательные параметры функции Perl?

Я хочу передать функции несколько параметров, один из которых является необязательным. Единственный известный мне способ сделать это - использовать список (@ ) в качестве параметра.Таким образом, он ничего не содержит или 1 элемент (никогда не будет undef), так что я могу использовать следующий код:

sub someFunction($$@) {
    my ( $oblig_param1, $oblig_param2, $option_param ) = @_;
    ...
} 

Этот код работает, но я считаю, что, возможно, это не лучший обходной путь.
Есть ли другие способы сделать это?
Спасибо.