Select Code to Download

my %alt_seqindex;
$alt_seqindex{lc $key} = $key while (my ($key) = each %seqindex);

$value = $seqindex{$alt_seqindex{lc $key}};

package BerkeleyDB::Hash::CasePreserve;
use BerkeleyDB;
...
}

1;