my $twig= XML::Twig->new( twig_roots => { Hit_num => sub { hit_num( @_, $state_info); } } );

# ...
sub hit_num
  { my( $t, $hit_num, $state_info)= @_;