my $t= XML::Twig->new( twig_handlers => { foo => sub { my_handler( @_, @HOGS) } });
# ...
sub my_handler
  { my( $t, $elt, @HOGS)= @_; # I would probably pass \@HOGC though