# original:

sub auth_header {
...
    for (@order) {
    next unless defined $resp{$_};
    push(@pairs, "$_=" . qq("$resp{$_}"));
    }

    my $auth_value  = "Digest " . join(", ", @pairs);
    return $auth_value;
}