my ($thisid, %thatseq) = HashSequences();