Select Code to Download

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

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