Select Code to Download

 my $dna=();
 foreach my $dna (@random_DNA) { # Line 19 
...
print RESULT"\n Randomly Generated dna:\n
 The DNA set containing $number molecules varying in length from $minl
+ to $maxl bases are:\n\n
 my $dna\n";

my $number= <STDIN>;

my $maxl= <STDIN>;

  my $minl= <STDIN>; # Line 10

  srand(time|$$);

 my $dna;                        # Line 40
 # Set of DNA fragments 
...
 # add $dna fragment to @set Line 47:  
  push (@set,$dna);}
  return @set;}  # Line 49

# Now write the subroutine make_random_DNA:
sub make_random_DNA {                      # Line 57      
...
 for (my $i=0;$i<$length;++$i) {
 $dna.=randomnucleotide();}                # Line 62   
 return $dna;}

#!/usr/bin/perl
# Program to generate Random DNA set:
...
        return join '', map $nucleotides[ rand @nucleotides ], 1 .. $l
+ength;
        }