foreach my $sorter (  keys %hash  ) {
        print "\n\nSORTER=$sorter";
        my @time;
        foreach my $domain (  keys %{$hash{$sorter}}  ) {
            foreach my $time (  @{$hash{$sorter}{$d­omain}}  ) {
                push @time, "$time $domain"
                    . "\nDomain=$domain, Time=$time";
            }
        }
        foreach my $line (  sort @time  ) {
            my $output= ( split /\n/, $line, 2 )[1];
            print $/, $output;
        }
    }