my $doit = $q->param('foo'); my %functions = ('first' => \&one, 'second' => \&two );