myfunc(
  return => [ $query->param('return') ],
  authors => [ $query->param('authors') ],
  # ...
);
[download]

I'm not too sure I understood the question, I assume you want to get all the CGI-Paramers into your subroutine like so: myfunc(return => query->param("return"), authors => query->param("authors"));

The short answer: myfunc(  map { $_ => [$query->param($_)] } $query->param()  );

the long answer:

Get a list of all the parameters with $query->param(). This will be fed into map.

Map can be used to apply some commands to every element in a list, and construct a new list from the result. In this case for every element you feed into the map, you get back two elements: you get back the key, and an anonymouse array with the values.

that's it -- Brigitte 'I never met a chocolate I didnt like' Jellinek http://www.horus.com/~bjelli/ http://perlwelt.horus.at

If $query is a CGI.pm object, then the best way is probably:

myfunc(
    return => $query->param_fetch("return"),
    authors => $query->param_fetch("authors")
);
[download]

(with many more parameters)

Oh, well, then you probably want this instead:

myfunc(
    map { $_ => $query->param_fetch($_) }
    qw( return authors to their stables immediately )
)
# or
myfunc(
    map { $_ => $query->param_fetch($_) } $query->param()
)
[download]

For the more general problem of "How do I get a reference to a subroutine return value?" (which I thought was an interesting question so I did some investigating), the answer is "you can't". You can get a reference to copies of subroutine return values via:

$sv= \sub_returning_scalar();
$av= [sub_returning_list()];
$hv= {sub_returning_hash()};
[download]

So if you follow the advice of those who answered before me but part of your unstated goal was to allow the subroutine to modify the parameters such that $query would notice the modifications, then you will fail because those array references will only allow you to modify copies of those values.

The methods I suggested will allow myfunc to modify the CGI parameters directly. This can certainly be a disadvantage if you wanted myfunc to be able to futz with those arrays without affecting the CGI $query object.

myfunc($query);

sub myfunc {
    my $query = shift;

}
[download]

my @values = map { $q->param($_) } $q->param;
myfunc(\@values);
[download]