Select Code to Download

tie my(%lc_hash), 'Hash::Case::Lower';
{
...
        $lc_hash{$k} = $v;
    }
}

# writing it out
store( \%lc_hash, ... );
...
# reading it in
my $lc_href = retrieve( ... );
bless $lc_href, 'Hash::Case::Lower';