sub foo {
   map {
      # body of foo here
      $_[ $_ ] ...;
      $whatever;
   } 0..$#ret;
}