I would change it slightly to let me use the native sort:

@array =
  map substr($_, 1 + index($_, "\n")),
  sort
  map lc($_) . "\n$_",
  @array;
[download]

But I admit I have not done benchmarks.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;