my %hash = %{ $IN->{cookies} };

foreach my $k (keys %hash) {
  print "$hash{$k}[0]\n";
}