print scalar keys %{{map{(lc)x2} /(.)/sg}};