my $b="";

for ($j=0;$j<4;$j++){
	$b="";
for ($i=0;$i<1000;$i++){
$a= rand();
if ($a<0.25) {$b=$b."A";}
elsif ($a<0.5 && $a>0.25) {$b=$b."C";}
elsif ($a<.75 && $a>0.5) {$b=$b."T";}
elsif ($a<1 && $a>0.75) {$b=$b."G";}
}
print "\n$b";
}