I would modify in B::Deparse the routines that deal with variable names: stash_variable, pp_aelem, pp_helem... In addition to printing, they would tally the encountered variable names.

-- stefp