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