use Sub::Parms;

 # Case insensitive function parms
 sub my_function {
    FunctionParms : %args;
    my ($a_name, $another_name) = @args{'a_name', 'another_name'};

    # ...

 }

 # Case sensitive function parms
 sub my_other_function {
    CSFunctionParms : %args;
    my ($a_name, $another_name) = @args{'a_name', 'another_name'};

    # ...

 }

 # Case insensitive method parms
 sub my_method {
    MethodParms : $self, %args;
    my ($a_name, $another_name) = @args{'a_name', 'another_name'};

    # ...
 }

 # Case sensitive parms
 sub my_other_method {
    CSMethodParms : $self, %args;
    my ($a_name, $another_name) = @args{'a_name', 'another_name'};

    # ...
 }