So, basically, you need to rehash the hash you have on service, and assign the value to it?

The way I'd go about doing that (I'm sure there's a better way) would be something like .. (untested code)

my $servicehash;

foreach my $cookie (keys %hash)
  {
   foreach my $service (keys %{$hash{$cookie}})
     {
      $servicehash{$service} = $hash{$cookie}{$service};
     }
  }
[download]

That should leave you with a hash of values keyed on service.

Hope that helps ..
--Foxcub