my $servicehash;

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