foreach $sorter (keys %hash) {
 print "\n\nSORTER=$sorter";
 foreach $domain (keys %{$hash{$sorter}}) {
   foreach $time  (@{$hash{$sorter}{$domain}}) {
   print "\nDomain=$domain, Time=$time";
 }
}