Thanks to all... Your help got on the right track to here:

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

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