Da muss man aufpassen, nicht in die verfrühte Optimierung reinzukommen.

Wenn ich der Perl-Optimizer wäre, würde ich bei lc($x) cmp lc($y) auch ein strcasecmp machen.