for(0..$#$body) {
	print $body->[$_], "\n"; # or whaterver you wish to do with the element
}