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