@nucleotides=('A','T','G','C');
foreach(1..1000)
	{
	$seq1.=$nucleotides[int(rand(3))];
	}
foreach(1..1000)
	{
	$seq2.=$nucleotides[int(rand(3))];
	}