Select Code to Download

foreach $e (@{$data->{footnotes}})
{
print "$e->{footnote}{content}\n";
}

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

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