use Hash::Case::Lower;
use Storable;

tie my(%realhash), 'Hash::Case::Lower';
my $hashref = \%realhash;
$hashref = retrieve('somefile');