Select Code to Download

$header{"Number of Drills"} = do {  
                                      my $ret;
                                      foreach my $l ( @drill_arr ) {
...
                                      }
                                      $ret;
                                  };