Ah, to have list-context dereference semantics...

$header{"Number of Drills"}=
  sum ( values @drill_arr==>tool==>% )==>count;
[download]

yummy.

        - tye (but my friends call me "Tye")