Well, you can do

$h{lc($key)} = $value;

#....

print $h{lc($newkey)};
[download]

Or maybe Hash::Case might work for you (haven't tested it, but it seems like it might do what you want).

updated: fixed typo.