Try:

%cookies = fetch CGI::Cookie;

foreach (keys %cookies) {
   do_something($cookies{$_});
}