foreach $key ($query->param) {
  $i = $query->param($key);
  if ($key =~ /required/i) {if ( ($i eq "") && ($i == "") ) {failure();}}
}

##</code><code>##

foreach $key ($query->param) {
  @values = $query->param($key);
     foreach $i (@fary) {$i =~ s/\[$key\]/@values/g;}
}