$lc = List::Compare->new( \@country_names, \@words_in_file );
@countries_in_file = $lc->get_intersection;