my %assoc = ();
$assoc{'TheKey'} = "test";
print $assoc{'theKEY'} . "\n";