my @uniq = keys %{ +{ map +( uc() => undef ), @ar } };