my $test = sub { my $hr=shift; return $hr->{$var1}{$var2} };
foreach my $domain (sort {$a cmp $b} keys %{$hash}) {
   my $value = &{$test}($$hash{$domain});
}