use Hash::Case::Preserve;
tie my(%hash), 'Hash::Case::Preserve';
$hash{StraNGeKeY} = 3;
print keys %hash;         # StraNGeKeY
print $hash{strangekey};  # 3
print $hash{STRANGEKEY};  # 3