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

##</code><code>##

  print $assoc{lc 'theKEY'} . "\n";