Select Code to Download

  my @genes;  # I assume these come from somewhere

...
      $set[$index]{$out} = ($index + 1) / $total;
    }
  }