my %new_search = (
	num1  => [ param("num1"),        \&INTEGER ], 
	email => [ param("other_email"), \&EMAIL   ], 
);

my $new_tmpl = $search->result(1, \%new_search);