Date: 2012mar20 Update: 2025sep8 Language: perl Keywords: ignore, case Q. Perl: Do a case-insensitive sort A.

sub sortNoCase(@) { my(@a) = @_; return sort {lc $a cmp lc $b} @a; } # Example use: my @sorted = sortNoCase(@messy);