Help for this page

Select Code to Download

Select or download this

my %countries;
while (<DB>){
...
    print "$_\t\$countries{$_}\n";
}