sub Subroutine {
    my (%namedParams) = %{ shift() }; # () nicht vergessen!
    my ($param2, $param3) = @_;

    # ...
}

Subroutine( { key1 => 'value1', key2 => 'value2' }, $param2, $param3);