my %general;
%general = (
    ...

##</code><code>##

    results => sub { names(
                           first => $q->param('first'),
                           zip   => $q->param('zip'),
                          );
                     $general{data}->();
                   },