my $footnotes = $data->{footnotes}{footnote};
foreach my $footnote (values %$footnotes) {
    print "$footnote->{content}\n";
}