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;}

$#cookies{'preferences'}{value}

return %preferences = $cookies{'preferences'}{value};

use Data::Dumper;

print Dumper(\%cookies);

my $array = $cookies{preferences}{values};
return @$array;

my %peers1 = ('Haus','Tuer','Auto','Rad');
my %peers2 = ('Haus'=>'Tuer',
              'Auto'=>'Rad'
              );
use Data::Dumper;
print Dumper(\%peers1);
print Dumper(\%peers2);

my %hash = (test => 1, hallo => 2);

my %hash = (test,1,hallo,2);