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

##</code><code>##

-foo => 'food',
bar  => 'barl'

##</code><code>##

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