my $tpp = XML::TreePP->new();
my $tree = $tpp->parsefile( "abstracts.xml" );
-print dump($tree);
+my $abstracts = delete $tree->{AbstractBook}->{abstract};
+warn "# tree = ", dump($tree);
+
+my $stat;
+
+foreach my $abstract ( @$abstracts ) {
+ warn "# abstract = ", dump($abstract);
+
+ foreach $k (qw( ContributionType )) {
+ $stat->{$k}->{ $abstract->{$k} } ++;
+ }
+
+}
+
+warn "# stat = ",dump($stat);