長さを指定し、ランダムなDNA配列を生成するperlスクリプトコード

use strict; 
use warnings;

# for definition 
my @dna; 
my $dna_length; 
my $newbase; 
my $i=0; 
print "please input the DNA length\n"; 
chomp($dna_length=<>); 
while($i<$dna_length) 
{ 
  #Randomly select one of the four bases 
  my(@nucleotides)=qw/A T G C/; 
  $newbase=$nucleotides[rand @nucleotides]; 
  #add the randomly generated sequence to the array of @dna 
  push(@dna,$newbase); 
  ++$i; 
} 
print "@dna";