As you have probably guessed, perl is case sensitive, so you are paddling upstream from the start.

But it is easy, depending on your circumstance, to force either the keys, or the subsequent comparison, to lower case using lc or upper case using uc.

For example

print $h{lc 'AdOBe'};
[download]