sub foo {
    my($param1, $param2, %args) = @_;
    ...
}
foo("param1", "param2", opt1 => "value1", ...);