$assoc{lc $_} = delete $assoc{$_} for keys %assoc;