Assuming I understand the way you structured your hash correctly, let me suggest this solution:

my %domain_stats = ( 
        'www.perlmonks.com' => {
            'country' => 'USA',
            # ... other very much needed fields ...
        },
        'www.google.ca' => {
            'country' => 'Canada',
        },
        'www.foobar.com' => { # does this one exist even? ;)
             'country' => 'Nebukadnezaria',
        },
     );

for (sort {$domain_stats{$a}{country} cmp $domain_stats{$b}{country}} 
+keys %domain_stats) {
  print "Domain: $_; Country: $domain_stats{$_}{country}\n";
}
[download]

This prints out the following:

Domain: www.google.ca; Country: Canada
Domain: www.foobar.com; Country: Nebukadnezaria
Domain: www.perlmonks.com; Country: USA
[download]

_____________________

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;$_=&#91"ps -e -o pid | "," $2 | "," -v "," "]`@$_`?{print"
++ $1"}:{print"- $1"}&&`rm $1`;print"\n";}
[download]