my @nucleotides = qw( A T G C );
foreach ( 1 .. 1_000 )
	{
	$seq1 .= $nucleotides[ rand @nucleotides ];
	$seq2 .= $nucleotides[ rand @nucleotides ];
	}