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