my (%hash) = @_;

@{$params{valid_inputs}}{keys $hash{valid_inputs}} 
    = values $hash{valid_inputs};

$params{max_record_length} 
    = $hash{max_record_length} 
        || $params{max_record_length};