#!/bin/perl

use strict;

my $continent;
my $codefile;
my @countries;
my @codes;

my @files = ("europa.txt","azia.txt","afrika.txt","oceania.txt","america.txt");

open($codefile ,"<codes.txt") or die $!;
@codes = <$codefile>;
close ($codefile);

foreach (@files){

	open($continent,"$_") or die $!;	

	@countries = <$continent>;

	close($continent);

	open($continent,">$_");

	foreach my $country (@countries){
		
		next if($country !~ /\w/);

		foreach my $code (@codes){

			$code =~ tr/-/ /;

			if($code =~ $country){
				print $continent $code;
				last;
			}
		}
	
	}

	close $continent;
}

__END__