my %cookies = fetch CGI::Cookie;
    my %preferences;
    for (my $k=0;$k<$#cookies{'preferences'}{value};$k=+2){
    $preferences{$cookies{'preferences'}{value}[$k] = 
             $cookies{'preferences'}{value}[$k+1]);}
return %preferences;}