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