Select Code to Download

for ($results = 2; $results <34; $results++) {
            my $file="current$results.res";
...
              ....
            }

for ($results = 2; $results <34; $results++) {
                my $file="current".$presence.".res";
                ....
                }

 @tree1=@samples[0..2];
  ...  (another 10 of those)
...
 foreach $patch(@$arrayname) {
       ... do something
       }

 my %trees = (1 => "@samples[0..2]", 
                          ... (another 10 of these)
...
                foreach $patch(@patches) {
                             ... do something
                 }