sub foo {
   #  vvvv Temp array
   my @ret = map {
      # body of foo here
      $whatever;
   } @_; # <<< list 1

   #    vvvvvvvv list 2
   @ret[0..$#ret];
#  ^^^^^^^^^^^^^^ list 3
}

##</code><code>##

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