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