@strings = sort Sorting::case_insensitive_cmp qw( this Mine yours Those THESE nevER );