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";
}