my %klein= map {(lc $_ => $_)} keys %hash;