So you mean change it to this--> 
foreach my $nucleotide(@nucleotide_array)
                      {
                          chomp $nucleotide;
                                  
                          my($T,$G,$C,$A);
                          #These mutations rates reflect 10^-5 
                              if ($nucleotide eq 'A'){
                                     # $T=.1;$G=.2;$C=.3;$A=.7;
                                      my $score = (int rand(100000))/1
+00000;
                                      if( $score>=00000 && $score<=.00
+033){ $nucleotide='T';}                       
                                      if( $score>=.000334 && $score<=.
+00066){ $nucleotide='G';} 
                                      if( $score>=.00067 && $score<=.0
+0099){ $nucleotide='C';} 
                                     # if( $score>=.300 && $score<=1.0
+0){  Do NOTHING      } }
                                  }
                              elsif ($nucleotide eq 'T'){
                                     # $A=.1;$G=.2;$C=.3;$T=.7;
                                      my $score = (int rand(100000))/1
+00000;
                                      if( $score>=00000 && $score<=.00
+0333){ $nucleotide='A';}                       
                                      if( $score>=.00034 && $score<=.0
+0066){ $nucleotide='G';} 
                                      if( $score>=.00067 && $score<=.0
+0099){ $nucleotide='C';} 
                                      #if( $score>=.300 && $score<=1.0
+0){  DO NOTHING      } }
                                  }
                              elsif ($nucleotide eq 'C'){
                                     # $T=.1;$G=.2;$A=.3;$C=.7;
                                      my $score = (int rand(100000))/1
+00000;
                                      if( $score>=00000 && $score<=.00
+033){ $nucleotide='T';}                       
                                      if( $score>=.00034 && $score<=.0
+0066){ $nucleotide='G';} 
                                      if( $score>=.00067 && $score<=.0
+0099){ $nucleotide='A';} 
                                      #if( $score>=.300 && $score<=1.0
+0){  #No mutation} 
                                  }
                              elsif ($nucleotide eq 'G'){
                                     # $T=.1;$A=.2;$C=.3;$G=.7;
                                      my $score = (int rand(100000))/1
+00000;
                                      if( $score>=00000 && $score<=.00
+033){ $nucleotide='T';}                       
                                      if( $score>=.00034 && $score<=.0
+0066){ $nucleotide='A';} 
                                      if( $score>=.00067 && $score<=.0
+0099){ $nucleotide='C';} 
                                      #if( $score>=.300 && $score<=1.0
+0){  #No mutation} 
                                  }
                          $new_string= $new_string . $nucleotide;

[download]

In reply to Re^2: Increasing the efficiency of a viral clonal expansion model by ZWcarp
in thread Increasing the efficiency of a viral clonal expansion model by ZWcarp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.