my @param = $q->param();
@input{@param} = map $q->param($_), @param;