This is sorting ASCIIbetically rather than alphabetically. What you need is:

@sorted = sort { lc(a) cmp lc($b); } @array;
[download]

I'm sure this was covered elsewhere recently...

cLive ;-)