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