perl指定长度并生成一个随机的DNA序列的脚本代码

usestrict; 
usewarnings;

#进行定义 
my@dna; 
my$dna_length; 
my$newbase; 
my$i=0; 

print"pleaseinputtheDNAlength\n"; 
chomp($dna_length=<>); 

while($i<$dna_length) 
{ 
 #从四个碱基中随机选取一个 
 my(@nucleotides)=qw/ATGC/; 
 $newbase=$nucleotides[rand@nucleotides]; 

 #将随机生成的序列添加到@dna的数组中 
 push(@dna,$newbase); 
 ++$i; 
} 
print"@dna";