my @old = keys %hash;
@hash{map uc, @old} = delete @hash{@old};