foreach $value (values(%seq))
	{
	
	
	$value=~s/\n|\t|\r//g;
	
	}