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

##</code><code>##

foreach (@$body) {
	print "$_\n";
}