foreach my $i ( 0 .. $#body ){
  print "$i) $body[$i]";
}