for my $sec ( @{ $data->{sections} } ) {
	print "Section: ", $sec->{title}, "\n";
	for my $img ( @{ $sec->{images} } ) {
		print "Image: ", $img, "\n";
	}
	print "Content Text: ", $sec->{content}[0]{text}//'(undef)' ,"\n";
	for my $elem ( @{ $sec->{content}[0]{elements} } ) {
		print "Element Text: ", $elem->{text}, "\n";
	}
}