Select Code to Download

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

...
) {
    print "<option value=\"$code\">$country_names{$code}</option>\n";
}