perl -e'@uniq{map lc, <>}=(); print keys %uniq' listfile