my %hash = map { lc($_), 1 } ;