generate DNA sequence perl
use strict;
use warnings;
my @base = ( "A", "T", "G", "C" );
my $length = 10;
my $num = 2;
for ( my $i = 1 ; $i <= $num ; $i++ ) {
for ( my $j = 1 ; $j <= $length ; $j++ ) {
my $element = $base[ rand @base ];
print $element;
}
print "\n";
}
use warnings;
my @base = ( "A", "T", "G", "C" );
my $length = 10;
my $num = 2;
for ( my $i = 1 ; $i <= $num ; $i++ ) {
for ( my $j = 1 ; $j <= $length ; $j++ ) {
my $element = $base[ rand @base ];
print $element;
}
print "\n";
}