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

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

##</code><code>##

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