"US"    $countries{"US"}
"DE"    $countries{"DE"}
"RU"    $countries{"RU"}
"UK"    $countries{"UK"}
"FR"    $countries{"FR"}

##</code><code>##

my %countries;
while (<DB>){
    my $entry = (split /","/, $_)[1];
    $countries{$entry}++;
}

for (reverse sort { $countries{$a} <=> $countries{$b} } keys %countries){
    print "$_\t$countries{$_}\n";
}