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