foreach $entry (@GILIST) {
	$seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real accession number.\n";
	$speciesname = $seq1->species->common_name;
	$specieslist{$entry} = $speciesname;
	print p ("Gi# $entry is a $speciesname nucleotide sequence.\n");
}