%file2 = 'Source.txt' ;
    open(INFO, "<%file2" ) ;

##</code><code>##

    open(INFO, '<Source.txt');

##</code><code>##

    my %table;
    open(IN, '<Source.txt') or die;
    while (<IN>) {
        chomp;
        my($ip, $country) = split(' ', $_, 2);
        $table{$ip} = $country;
    }

##</code><code>##

    open(OUT, '>>conversion.txt') or die;
    foreach $line1 (@lines1) {
        if (exists $table{$line1}) {
            print OUT $line1, ' ', $table{$line1}, "\n";
        }
    }
    close OUT;