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

##</code><code>##

# push(@{$self->{cookies}}, {$_=~s/^-//}, $ref_cookie->{$_}});