while (($key, $sequence)=each %species)
	{
	print $key,$sequence; 
	print "\n";
	}