#!/usr/bin/perl
use strict;

my $c_inFile = q{countries_list.csv};
open my $c_INFILE, q{<}, $c_inFile or die "Can't open countries_list.csv : $!";

my $c_outFile = q{test_list.csv};
open my $c_OUTFILE, q{>}, $c_outFile or die "Can't open countries_list.csv : $!";


my $country;

while (my $line = <$c_INFILE>){
	chomp($line);
	my @Elements = split(";",$line); 
	$country =  $Elements[0];
	print $c_OUTFILE "the country is p${country}p\n";
}	

close $c_INFILE;
close $c_OUTFILE;


##</code><code>##

Italy
USA
France

##</code><code>##

the country is pItaly
p
the country is pUSA
p
the country is pFrance
p

##</code><code>##

Italy;1
USA;1
France;1

##</code><code>##

the country is pItalyp
the country is pUSAp
the country is pFrancep