Select Code to Download

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

my %countries;
while (<DB>){
...
for (reverse sort { $countries{$a} <=> $countries{$b} } keys %countrie
+s){
    print "$_\t$countries{$_}\n";
}