perl/etc/justonce/tmp/simssPCR.pl

   1 #!/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Data::Dump qw(ddx);
   5
   6 my $cycle = 5;
   7 my (%PCR,@Solution);
   8 push @Solution,0;
   9
  10 for my $i ( 1 .. $cycle ) {
  11         my @t =  @Solution;
  12         push @Solution,(1+$_) for @t;
  13 }
  14
  15 ++$PCR{$_} for @Solution;
  16 ddx \%PCR;