Help for this page
foreach (keys %{$ref_cookie}) { push(@{$self->{cookies}}, {$_=~s/^-//}, $ref_cookie->{$_}}); }
-foo => 'food', bar => 'barl'
push @{$self->{cookies}}, /^-?(.*)/, $ref_cookie->{$_};