my %condition=();
foreach my $key ( $q->param() ) {
    local @_;
    $condition{$key} = ( @_ = $q->param($key) ) - 1 ? \@_ : pop;
}