@sorted = sort {$$a[0] <=> $$b[0] || $$a[0] cmp $$b[0] } @array; prints

Sorted Array:  
CCI001, 1, U 
CCI002, 1, N 
CCI002, 2, N 
CCI003, 1, M 

or reverse tests so numbers come before characters.

-Lee

"To be civilized is to deny one's nature."