print p ("Gi# $entry is a $specieslist{$entry} nucleotide sequence.\n");