my %assoc = ();
$assoc{lc('TheKey')} = 'test';
print $assoc{lc('TheKEY')}, $/;