$header{"Number of Drills"} = &{ sub {  
                                     my $ret;
                                     foreach my $l ( @drill_arr ) {
                                         foreach ( values %{$l->tool} ) {
                                             $ret += $_->count;
                                         }
                                     }
                                     return $ret;
                                 } };