sub case_insensitive_cmp ($$) { local ($a, $b) = @_; lc($a) cmp lc($b) }