Going from what you say in the main text, you have set @icodes to a singleton array (it containst that one string, with all the icodes separated by a space).

perhaps what you want instead is

@icodes = qw(CEN01-SJU1-022102A CEN02-MEX1-022702P CTE01-SJU1-022202A 
+CTE02-MEX1-022802P);
[download]

I mistrust all systematizers and avoid them. The will to a system shows a lack of integrity -- F. Nietzsche