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