in reply to Inserting more than one entry into a MySql DB

If I read you correctly, you've declared a single element array: 
@icodes="CEN01-SJU1-022102A CEN02-MEX1-022702P 
CTE01-SJU1-022202A CTE02-MEX1-022802P";

[download]
In that case, Perl is happily looping through each element of the array, all one entries. How about: 
@icodes = ('CEN01-SJU1-022102A', 'CEN02-MEX1-022702P', 
'CTE01-SJU1-022202A', 'CTE02-MEX1-022802P');

[download]

In Section Seekers of Perl Wisdom