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";
}

##</code><code>##

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

##</code><code>##

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