foreach (keys %{$ref_cookie}) {
    push @{$self->{cookies}}, /^-(.*)/, $ref_cookie->{$_};
}