my $var;
print $var = 3 + 4 . "\n"; # Just for illustration!

##</code><code>##

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