One way is to standardize on one case for all your keys on insertion, then to force case on retrieval, like this:

%h = (
  lc('adobe')    => 'abcd',
  lc('big boss') => 'gcd',
  );

my $key = 'AdOBe';
$key = lc($key);
print $key;
[download]