my ($myseq, $hashname, $key) = @_;