my $dna;                        # Line 40
 # Set of DNA fragments 
 my @set;                        
 # Create set of random DNA:  
  for (my $i=0;$i<$number;++$i) {
 # find a random length between min & max Line 45:  
  $length= randomlength ($minl,$maxl);
 # add $dna fragment to @set Line 47:  
  push (@set,$dna);}
  return @set;}  # Line 49