use Locale::Country;
open my $in, '<', 'num_traces' or die $!; 
open my $out, '>', 'analysis' or die $!; 
my @names;
my $value = 0;
my $value_1 = 0;
while ( my $line = <$in>) {

 @names   = all_country_names();

	if ($line =~ /China\s\d+\shops/m)	{
	
		print {$out} "$line\n";
	
		$value++;
}

}