in reply to CGI.pm: $q->param can be an array. Can be a single value. How do you know which?
my %condition=(); foreach my $key ( $q->param() ) { local @_; $condition{$key} = ( @_ = $q->param($key) ) - 1 ? \@_ : pop; } [download]