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

#....

print $h{lc($newkey)};