...
my %stuff = (
   myresults => sub { names(
                  first  => scalar $q->param('name'),
                  second => scalar $q->param('zip'),
                 ),
);
...