my @codes = map { substr($_, 0, rindex($_, '.')) } @intl_files;

foreach my $code (
   sort { $country_names{$a} cmp $country_names{$b} }
) {
    print "<option value=\"$code\">$country_names{$code}</option>\n";
}